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ABSTRACT 

A COMPUTER GRAPHICS APPROACH 
TO NON-LINEAR CIRCUIT DESIGN 



This investigation is concerned with computer and programming re- 
quirements for on-line network design* A class of problem involving 
non-linear diode resistance networks was chosen* Such networks provide 
a useful form of general purpose function generator, here applied to 
the specific task of symbol generation* A procedure was Implemented 
whereby the user "draws" the required symbol to be generated on a 
cathode ray tube display, and output is obtained in the form of a 
labeled circuit diagram of the sjmthesized network* The validity of 
the computer- graphic design program was demonstrated by construction 
and testing of a particular symbol generator* 
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CHAPTER I 



INTRODUCTION TO THE GENERAL DESIGN PROBLEM 

1. OBJECTIVES OF THE APPROACH TO COMPUTER DESIGN 
It is the aim of this work to study the modem technique of engi- 
neering design by digital computer using graphical methods of data 
display. Details of the methods required for both input and output 
data display will be Investigated. For many problems graphical displays 
are the most direct communication link between man and machine. In 
order to illustrate these techniques, a problem in nonlinear linear 
network synthesis was chosen. This problem involves the synthesis of 
the circuitry to produce the waveforms to generate a symbol. Because 
of the nonlinear nature of the waveforms, the S3mthesis involves an 
iterative numerical solution. A system of graphical input and output 
data display was devised for this design problem. It is hoped that this 
study will yield insight into a general approach to design using these 
methods. 



2. BASIC FUNCTIONS OF THE COMPUTER AIDED DESIGN SYSTEM 
In many cases the choice of the specific method used in a particu- 
lar facet of the example design problem was dictated by the practical 
limitations of the computer and its peripheral equipment. Regardless of 
these limitations, the system operates satisfactorily and serves well to 
demonstrate the salient features of this approach to design. As a par- 
ticular example, the computer design of the letter "L" will be studied. 
The first phase of the design procedure is to input the data into the 
computer. The primary input source is the track-ball which may be posi- 
tioned in X and Y coordinates. The track-ball analogue position is 
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converted to nine bit ones complement digital position coordinates. The 
data aire entered by drawing a piecewise linear sketch of the letter "L" 
on the display using the track-ball. The sequence of strokes used to 
sketch the letter will be the same sequence of strokes produced by the 
designed circuit in displaying the letter. The track-ball data are con- 
verted to a twenty- two bit format as it is entered into the data tables 
as illustrated in figure 1. The secondary source of data would be data 
produced as above and prestored on magnetic tape. The next step in the 
design is to select the compute operation. There are two arguments 
which may be altered to suit the specific design requirements. The 
first is the voltage in millivolts which is used in the sweep supply 
for the designed symbol generator circuit. The second is the ratio of 
input data units, describing symbol size, to the corresponding output of 
the designed circuit in milliamperes. Saying this another way, the ver- 
tical leg of the letter "L" has a length in input units. The designed 
circuit must produce a specified number of milliamperes to produce the 
desired height. The relationship of these two arguments in the design 
procedure is more fully covered in Chapter III. After selecting the 
compute operation the computer does the proper calculations and auto- 
matically compiles the output display file. In the case of the letter 
"L", there are two piecewise linear regions. The circuitry therefore 
consists of two series resistance diode legs connected in parallel in 
both the "X" and "Y" circuits. Only the "X" or "Y" circuit is displayed 
at one time. Figure 1 shows the format of the "Y" display. It is noted 
that the resistances shown in each leg act both as voltage dividers to 
produce the proper bias voltage for the diode and as circuit resistance 
which is switched into the circuit by the diode. Figure 2 shows how 
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FIGURE 1 



FUNCTIONAL BLOCK DIAGRAM OF SEQUENCE OF 
COMPUTER DESIGN OPERATIONS 
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the "X" and ”Y" circuit output waveforms form the letter "L" 



The 



theory of how these circuits produce these waveforms is left to Chap- 
ter II. 
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FIGURE 2 

ILLUSTRATION OF HOW CIRCUIT WAVEFORMS 
PRODUCE THE LETTER "L" 



CHAPTER II 



COMPUTER DESIGN APPLIED TO THE DESIGN OF SYMBOL GENERATORS 

1. FUNCTION GENERATORS AND THEIR DESIGN BY 
ALGORITHMIC PROCEDURES 

As Indicated in Chapter I, the design problem is solved using an 
algorithm which results in an iterative computational process. The 
specific design being considered is that of symbol generators. The sym- 
bol generators to be considered are function generators which consist of 
resistances and biased diodes. The method by which these function gen- 
erators may be used to obtain piecewise linear approximations to symbols 
will now be described. Figure 3 illustrates the generation of a piece- 
wise linear mono tonic function using a parallel bank of resistors which 
are switched into the circuit by means of single-pole, single-throw 
switches which are closed sequentially with time. Note that the circuit 
of figure 3 produces a monotonically Increasing current output function. 
Figure 4 illustrates the generation of a monotonically decreasing func- 
tion. It is possible by the summation of a monotone Increasing and a 
monotone decreasing function to produce a function which is no longer 
monotone. As a practical aspect, the single-pole, single-throw switches 
may be replaced by diodes biased at different levels of voltage so that 
they switch at various times after the input sweep is commenced. Since 
the input is linear with time this corresponds to the diodes switching 
at various input voltages. The current outputs are added in a summing 
network. At any instant of time the value of the output current slope 
from the function generator is the product of the voltage slope divided 
by the total parallel resistance which is in the circuit at that time. 
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FIGURE 3 

A CIRCUIT DIAGRAM OF A FUNCTION GENERATOR 
WHICH PRODUCES A MONOTONICALLY INCREASING 
FUNCTION OF TIME 
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FIGURE 4 

CIRCUIT DIAGRAM OF A FUNCTION GENERATOR 
WHICH PRODUCES A MONOTONICALLY DECREASING 
FUNCTION OF TIME 
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This gives a positive increase of current with time for the case of fig- 
ure 4. Since the outputs of two function generators are summed together 
the resulting current slope is an algebraic addition of the two current 
slopes. Now for any case, the total network resistance is defined as 

the voltage slope ^ divided by the current slope which may be alge- 

dt dt 

bralcally positive or negative. 

RTOTAL = ^ (1) 

dt 

dt 

In order to determine the resistance required to be added to a func 
tion generator to produce a new specified slope (new total network re- 
sistance), it is necessary to take the present total network resistance 
and compute the resistance to be added in parallel to produce the new 
desired network resistance. If the resistance turns out to be negative, 
this means the resistance is to be paralleled with the resistors in the 
monotone-decreasing function generator. This is shown symbolically as 
follows: 

RT0TAL(2) = RTOTAL(l) R(2) 

RTOTAL(l) + R(2) 

where RT0TAL(2) is the parallel resistance of RTOTAL(l) and R(2) 

Hence R(2) = RTOTAL(l) RT0TAL(2) 

RTOTAL( 1 ) -RT0TAL(2) 

This may be written in the form of an algorithm: 

R(i+1) = RTOTAL(i) RTOTAL(i-«-l) (2) 

RTOTAL( i) -RTOTAL( i+1) 

with R(l) = RTOTAL(l) 



19 



2. DESIGN OF SYMBOL GENEBIATORS USING FUNCTION GENERATORS 



Symbols may be displayed on a cathode ray oscilloscope by applying 
the correct wave forms to the two pairs of orthogonal plates. These 
wave forms must be designed so that they move the tube electron beam at 
a constant rate, as It sweeps out the character, so that a constant In- 
tensity figure Is painted on the tube face. This Is ensured by arrang- 
ing that the wave form on each of the two orthogonal plate pairs satis- 
fies the restriction that It change Its amplitude at a constant rate. 

Also, since the wave forms must be In time phase, switching must occur 
simultaneously In both the function generators at each change In slope 
of the symbol being generated. This means that the individual plate 
wave forms may be designed separately against a dummy time variable. 

The latter Is derived from the fraction of the total distance traveled 
between the discontinuous slope changes of the symbol generated. This 
distance is obtained from the input data which is In the form of two co- 
ordinates defined for each discontinuity In the symbol to be generated. 

Let these coordinates be defined X and Y. Considering X only, the 
change In t In time units (distance), between adjacent coordinates de- 
noted X(l) and X(l-fl) respectively, Is calculated. Each of these Indi- 
vidual time Intervals Is summed up to the 1-i-lth coordinate to give t(l-i-l). 
If there are n coordinate points, the last time Is t(n-»-l). The fractional 
time is given by equation three. 

t(if) = t(l) (3) 

t(n+l) 

where t(l) =0 

Now to compute resistance RTOTAL(i), it is necessary to know what the 
current slope is during the i-i-lth interval. The X coordinates are pro- 
portional to the current required from the X function generator as 
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defined by equation four. 



i(i) = (X(D) 
k 



( 4 ) 



where k Is the scale factor in units of input 
X per mlLliampere of current. 

Thus it Is seen the current slope is given by equation five. 

i (5) 

Current rate mllllamperes/sec. = k (X(l-»-l)-X(l)) 

t(i+l)-t(i) 

Now t(nf ) , derived from equation three for the index n, is I and letting 
Vinax be the maximum input voltage, the input voltage rate in millivolts/ 
second is Vmeuc. By substituting these values in equation 1, one obtains 
the expression given in equation 6. 



RTOTAL(i+l) = KVmax(t(i->-l)-T(i)) 
(X(i+1)-X(i)) 



( 6 ) 



The index i in equation six goes from 1 to n. In the special case 
where i is unity, the value of t(l) is zero. In the case where the re- 
sistance diode network is biased by some series bias voltage which op- 
poses the input sweep voltage, the effective branch resistance is higher 
than that given in equation 6. A correction factor may be added to Vraax 

to account for this. Since the bias voltage E(i) = Vmaxt(i), the correct 

t(n+l) 



RTOTAL is computed using equation 6a. 



RTOTAL(i+l) k(t(i+l)-t(i)) Vmax(l-t(i)) (6a) 

(X(i+1)-X(i) t(n+l) 

Equation 6a simplifies to equation 6 in the case that the bias voltage 
is zero. This completes the algorithm. The order of computation is 
equation 6a then equation 2. The scale factor used on the input data is 
defined in equation 4. It is the ratio of the maximum input X to the 
maximum current output from the function generator. The latter value is 
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arrived at from power dissipation considerations while the former is 
determined by the input device. 
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CHAPTER HI 



THE PRACTICAL IMPLEMENTATION OF THE 
SYMBOL GENERATOR DESIGN ALGORITHMS 

1. SYMBOL GENERATOR DESIGN 

As mentioned in paragraph 1 of Chapter II, the switching devices 
used in the function generators are biased diodes. Figure 5 indicates 
the practical method of obtaining the required resistance diode network. 
The equivalent circuit of this network is illustrated in figure 6. Ini- 
tially it is assumed that the diode D(l) and the power supply Vmax, 
shown in figure 5, are both ideal in nature. This being the case, the 
Voltage E at point E of figure 6 is given by equation 7 while the re- 
sistance R(i), looking into the same point, is given by equation 8. 



E(i) = R(il) Vmax 


(7) 


R(il)+R(^2) 




R(i) = R(il) R(i2) 


(8) 


R(il)+R(i2) 





Solving these equations for Ril and Ri2 the relationships given in equa- 
tions 9 and 10 are obtained: 

R(il) ■ Vmax R(i) • (9) 

Vraax-E(i) 

R(i2) a Vmax R(i) (10) 

E(i) 

In actual fact the diode D(i) of figure 5 has some resistance even when 
forward biased by several milliamperes. Figure 7 shows the value of 
forward current plotted against bias voltage for a typical silicon diode. 
The effect of this resistance will be discussed later. Additionally, 
the resistor Ro of figure 5 affects the bias of diode D(i). The total 
parallel resistance of all R(i), as illustrated in figure 6, was con- 
strained to be greater than one hundred ohms in the designed symbol 
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FIGURE 5 

A TYPICAL SECTION OF A FUNCTION GENERATOR 
^^ITH A MONOTONICALLY INCREASING OUTPUT 
SHOWING DIODE BIASING ARRANGEMENT 
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FIGURE 6 

EQUIVALENT CIRCUIT OF A TYPICAL SECTION 
OF A FUNCTION GENERATOR THAT PRODUCES A 
MONOTONICALLY INCREASING OUTPUT FUNCTION 
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FIGURE 7 

A CHARACTERISTIC CURVE FOR A 
TYPICAL SILICON DIODE 
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generators. The value of Ro could add appreciable error to the bias 
level when the circuit resistance Is low. A related error Is found In 
the Internal Impedance of the supply Vinax. These latter errors must be 
compensated for by subtracting a compensating resistance value from the 
computed R(12) to give the corrected potentiometer setting. It Is noted 
Chat the battery Internal Impedance would be shunted by the remaining 
series values of R(ll) and R(12). If the Internal Impedance of the bias 
supply Is large, these resistors will have an appreciable effect. How- 
ever If the Internal Impedance of the bias supply, plus Ro of figure 3, 
Is less than twenty ohms, the correction factor will be very nearly 20 
ohois. Returning to the question of the diode foirward Impedance, It Is 
seen from figure 6 that this must be subtracted from the computed R(l) 
to give correct results. However, the bias voltage Is a function of 
time. To remove this time dependence. It is necessary that the value of 
Vmax be large so that the diode resistance Is negligibly small after the 
diode Is switched. Values of 20 volts or more were found to give excel- 
lent results. 

It Is seen from figure 8 that the load resistor R must be large 
enough so that as VTOTAL changes, the loadline moves over a linear por- 
tion of the diode characteristic and produces a current which Is line- 
arly related to the current which would flow If the resistance were 
there alone. However, the resistor must be small enough to ensure fast 
switching time, as the rate of change of bias current Is proportional 
to the rate of change of VTOTAL and Inversely proportional to the load 
resistor R. This is the chief reason for constraining R to be between 
100 and 10,000 ohms. 
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FIGURE 8 

VOLTAGE CURRENT RELATIONSHIPS FOR A SERIES 
RESISTOR DIODE NETIVORK COMPARED WITH 
THOSE FOR A RESISTOR ONLY 
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2. SYMBOL GENERATOR SENSITIVITY 



It Is of Importance that the symbol generators not only perform 
their specified task In the best possible manner, but that they do so 
with good reliability. The reliability aspect mainly refers to the 
change In component parameters with time. The voltages fed to the sym- 
bol generators may be electronically regulated. The components them- 
selves are sufficiently simple that they should exhibit a low failure 
rate. However, there are factors which would cause circuit resistance 
values to change with age. The following analysis will determine the 
seriousness of this problem. 

From equation 1 It Is seen that 

dt dt 

RTOTAL 

where RTOTAL at any time Is made up of a number of parallel 

resistors R. That Is: 

1 ^ 1 ♦ 1 ♦ ... 1 
RTOTAL Rl R2 R(i) 

Hence ^ s dv(l + 1 ) 

dt dt(Rl R2 R(i)) 

Now ^ 

dR (t) 

-dV 1 „ = -dl RTOTAL 

dt Ut) dt 

From the last two expressions equation 11 Is obtained: 

-Aii (11) 

^ = - RTOTAL (AR(D) 

« R(i) (R(i)) 

dt 

Similarly, differentiating the expression for 1 with respect to 

RTOTAL 

R(t): 
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- 1 RTOTAL = -JL 

(RT0TAL)2 3 R(i) R(i)2 

A RTOTAL _ RTOTAL Ar(1) (12) 

RTOTAL ” R(i) R(i) 

Thus It is seen from equations 11 and 12 that the value of RTOTAL, which 

determines the output current, and ^ have sensitivities proportional to 

dt 

the sensitivity of R(i) by the proportionality constant RTOTAL . This 

R(i) 

proportionality constant Is less than unity since R(l) Is one of the 
parallel resistances comprising RTOTAL. Hence the circuit will exhibit 
good circuit stability. Furthermore, by setting these resistance values 
on potentiometers using a bridge, the symbol distortion due to Inaccurate 
values of R(i) will be less than the error of the bridge which can be 
very small. 



3. SOFTWARE STRUCTURE 

The following paragraphs describe the computer software used In the 
particular design problem of Chapter II. Figure 9 shows the software 
used In the complete computer designs system. 

The primary data source is the track-ball which Is used In conjunc- 
tion with the data Input routine. The latter converts crack-ball data 
to the fixed computer-word format and enters It In the data tables. 

Once the data are entered In the data table the data display subroutine 
feeds the Information to the data display file which Is displayed by the 
data display subroutine. Control Is generally left In the track-ball 
driver routine which refers all action requests to the console control 
routine. The secondary source of data Is magnetic tape which Is operated 
as a service routine to fill the data table and display file. Comments 
may be added to or removed from the data display file. These operations 
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FIGURE 9 

SOFTWARE USED IN THE COMPUTER DESIGN 
OF SYMBOL GENERATORS 
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bypass the data display table and so have no effect on the design proc- 
ess. The subroutine which enters data Into the data tables Is also used 
to erase the data table and display file. This operation may be carried 
out at any time in the design process. 

4. DETAILED OPERATION OF SUBROUTINES 
Most of the subroutines need little explanation as their sequence 
of operation is flow charted in figures 10 to 23 inclusive. The sub- 
routine comput and its associated subroutine dlsply are shown In figures 
18 and 19. These subroutines do the arithmetic computations of the algo- 
rithmic equations 2, 6a, 7, and 8. The calculations are done In twenty- 
two bit fixed-point format. The fixed point arithmetic was accomplished 
by using a floating scale factor ensuring the numbers were manipulated 
to stay within the computer's maximum precision size. Calculations were 
performed so as to leave scaling down until the last In order to avoid 
round-off errors. Considering the square-root operation of block E of 
figure 18, It Is noted that this calculation Is a completely fixed point. 
The square-root subroutine computes the value of the square-root to the 
nearest digit. The computer computational accuracy compares favorably 
with the Input accuracy which is point two percent. Appendix III gives 
details on methods used to maintain computational accuracy. The computed 
resistance values in the computer program of Appendix II were constrained 
to lie between 64 and 8I92>ohms. These numbers cover the range of 100 
to 10,000 ohms in octal. The reason for the restricted range Is seen by 
considering figure 8, in which it is seen that R, which corresponds to a 
R(i) of equation 1, acts as the load resistance for a diode. Load re- 
sistors much larger than the upper value of 8192 ohms cause the diode to 
switch too slowly, while the lower value is used because of power 
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dissipation considerations. The next subroutine to be considered is 
disply which is the display driving subroutine. The flow chart for dls> 
ply is illustrated in figure 19. This subroutine assembles a display 
file. Display outlines are stored in memory and transferred to the 
display file. These outlines have internal positions where information 
is stored before it is transferred. This information consists of arith- 
metic computations, identification labels and display position coordin- 
ates. In the case of the computational results, these are taken from 
the output computation table by the octal-decimal conversion subroutine 
and Inserted directly into the display outline. Data are inserted in 
the outline in positions which are designated by arguments added to the 
end of the display outline code. The iterative display process is con- 
tinued until all table values have been converted and transferred to the 
display file. 



5. INSTRUCTIONS FOR THE OPERATION OF THE 
CCMiPUTER DESIGN PROGRAM 

The following instructions refer to the operation of a control data 
corporation model 160 computer with an associated DD65 display system. 
Figure 26 shows the arrangement of the control keyboard which is called 
keyboard II. The program is run from cell 100. After activating the 
track-ball, the track-ball is positioned for the start position of the 
symbol. The coordinates are entered from the draw button. The track- 
ball is then moved to the next position and the draw button is again 
pressed. The coordinates of the new position are entered in the data 
table and a line appears between the new and the old coordinates. A 
symbol is drawn in this fashion with its break points recorded in the 
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data table. If, during this process, a line Is drawn which Is to be 
blanked out In the display symbol, the blank button Is pressed Immedi- 
ately after drawing the line. Comments may be added or removed at any 
time by first pressing appropriate button. Typing a carriage return 
allows normal operations to continue. It Is good practice to store the 
sketched symbol on magnetic tape, since It contains all the Information 
needed for Its design. This Is done by the wrlte-on magnetic tape but- 
ton. The block number must be typed In before this action occurs. De- 
sign Is accomplished by pressing the compute button. After about a 
second, the circuit diagram for the X plate function generator will 
appear. Pressing the compute button again will produce the circuit dia- 
gram for the Y plate function generator. The circuit diagrams are alter- 
nately switched from X and Y by sequentially pressing the compute button. 
The type of circuit, X or Y, Is labeled above the display circuit. 

6. COMPUTER DESIGN OF THE LETTER "P" 

As an example of the application of computer design, the letter "P" 
was designed using the Fortran program of Appendix I. The following 
sentences describe In detail the procedure used to accomplish the design. 
Firstly, the letter was drawn to scale on paper. The scale was such 
that the maximum letter size was three hundred units. This was chosen 
to closely correspond to the size of character which might be drawn on 
the DD65 display mentioned In section 5 of this chapter. The designed 
character was to be displayed on a cathode ray oscilloscope on a scale 
of 0.1 volts per centimeter. The letter size was chosen to be slightly 
larger than one centimeter. It was decided to sample the current with a 
ten ohm resistor. From these decisions, the value of k, as defined by 
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equation 4, is thirty. The value twenty-five was chosen and corresponds 
to the value of Isens In the Fortran program of Appendix I. The value 
of Vmax was chosen as twenty volts. This corresponds to a value of two 
thousand millivolts for IVmax in the Fortran program of Appendix 1. The 
correction for seventy-five ohm power supply Internal Impedance and ten 
ohm sampling resistor was taken to be sixty ohms. This correction was 
discussed In section 1 of Chapter III. With this data, the program was 
executed and the results obtained are Included In Appendix I. 

7. CIRCUIT REALIZATION AND DISPLAY OF THE LETTER "P" 

Figures 24 and 25 show the circuitry for the function generators 
required to produce the wave forms necessary for the display of the let- 
ter "P". The circuit diagrams corresponding to these which were produced 
by the DD65 display are shown In figures 27 to 29. The resistance values 
chosen were those from the Fortran program of Appendix I. A photograph 
of the symbol generator and ancillary equipment Is presented In figure 
29. The various parts of the circuitry are labeled In the block diagram 
of figure 30 and listed in Table I. Figures 31 to 35 show various wave 
forms of the symbol generator circuit. It should be observed that the 
sweep Input of figure 31 was not of perfectly uniform Intensity which 
caused a slight bit of Intensity variation In the character. This was 
due to the necessity of Intensity modulating the oscilloscope to remove 
the distortions and the Idle part of the sweep of figure 30. The Imper- 
fect Intensity modulation Is apparent from figures 31 and 32. 
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TABLE I 



TABLE OF EQUIPMENT USED WITH SYMBOL FUNCTION GENERATORS 
TO PRODUCE SAMPLE CHARACTER "P" 



QUANTITY 


EQUIPMENT 


MANUFACTURER 


REMARKS 


1 


Function Generator 


Wavetek, Model 112 


Sawtooth 
Function used 


2 


Power Amplifier 


Hewlett Packard, 
Model 46 7A 


0-20 Volts, 
20db gain, 
O-lMHz 


1 


Unit Pulse Generator 


General Radio, 
Type 1217-B 




1 


Oscilloscope 


Hewlett Packard, 
Model 20B 




2 


Power Supply 


Hewlett Packard, 
Model 721A 


0-30 Volts, 
0-225 mllli- 
amperes 


1 


Impedance Bridge 


General Radio, 
Type 650A 
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CHAPTER IV 



DISCUSSION OF RESULTS AND CONCLUSIONS 
1, DISCUSSION OF THE RESULTS 

The results of the example design problem were partially discussed 
In section 7 of Chapter III* It Is seen from figure 35 that this design 
procedure yields a very acceptable character. It is noted that the 
character display time is two hundred microseconds. While this is com- 
paratively slow, tests were made at twenty microseconds that were encour- 
aging. These tests are not included since sufficient error existed in 
the input sweep voltage wave form at a twenty microsecond sweep time to 
invalidate the results. 



2. CONCLUSIONS 

The procedure developed for symbol design proved to be easy to fol- 
low and gave a solution which was suitable for output to a plotter. More 
flexibility could have been obtained at the expense of larger core stor- 
age. The economy of core storage utilized is illustrated in Table II. 
Programing effort would have been considerably reduced if a separately 
stored library of service subroutines were available. In this regard, 
it is felt that the output display also could have been presented more 
easily if there were library stores of code to be used for display of 
circuit components. Using this method, output display could be built up 
with little programing effort using the canned circuit component code. 

In addition to the above remarks, it is also felt that the existence of 
a supervisory control subroutine, controlling arithmetic accuracy, also 
would have reduced the programing load. Such a subroutine would not 
necessarily have to use floating-paint techniques, but would look after 
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TABLE II 



ALLOCATION OF CORE STORAGE FOR COMPUTER 
PROGRAM OF APPENDIX II 



SUBROUTINE 


CORE STORAGE 


SUBROUTINE 


CORE STORAGE 


Console 


100-116 


Dlsply 


2000-2240 


Trkbal 


117-153 


r/wr 


2450-2515 


tb 


155-172 


Read/Write 


2517-2551 


drw 


173-263 


Blank 


2555-2575 


Line 1 


257-507 


Octdec 


2600-2761 


Print 


516-710 


S Root 


2770-3073 


Dls 


750-1034 


Main Outline 


3100-3145 


Enter 


1050-1145 


Pos Outline 


3200-3257 


Remove 


1150-1224 


Neg Outline 


3300-3357 


Comput 


1250-1740 


Tables & Files 


3600-3777 


Buffer ) 
Temporary ) 
s/r Jump ) 
Index ) 


0-77 
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the maintenance of accuracy and ensure that large arithmetic errors, such 
as overflow occurring in multiplication operations, did not occur. Fi- 
nally, it is regretted that the software was not available to output the 
solution in hard copy form. In spite of the above shortcomings of avail- 
able computer service subroutines and peripheral equipment, the procedure 
demonstrated the ease and flexibility with which this type of design may 
be accomplished. 
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FIGURE 10 

CONSOLE SUBROUTINE PROVIDES CONSOLE CONTROL 
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FIGURE 11 

TB SUBROUTINE PROVIDES THE ORGANIZATION TO 
DRIVE THE TRACK- BALL SUBROUTINE 
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FIGURE 12 

RD/WR SUBROUTINE CONTROLS THE USE OF THE 
MAGNETIC TAPE UNIT 
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FIGURE 13 

DRW SUBROUTINE CAUSES DATA TO BE ENTERED INTO 
THE DATA TABLES AND ACTS AS A DRIVER FOR THE 
INPUT DATA DISPLAY DRIVER IffllCH 
IS CALLED LINE 1. 
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ENTER SUBROUTINE ADDS COMMENTS TO 
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FIGURE 15 

REMOVE SUBROUTINE REMOVES PREVIOUSLY ENTERED 
INFORMATION FROM THE DISPLAY FILE 
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FIGURE 17 

DIS SUBROUTINE DISPLAYS THE FILE 
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FIGURE 18 

COMPUT SUBROUTINE IS THE MAIN PROGRAM WHICH 
CONTAINS THE ALGORITHM FOR DESIGN OF THE 
SYMBOL GENERATORS 
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FIGURE 19 



DISPLY SUBROUTINE CONVERTS RESISTANCE AND 
DIODE BIAS VALUES TO POTENTIOMETER SETTINGS 
AND COORDINATES THEIR DISPLAY WITH THE 
CIRCUIT DIAGRAM 



bl 






FIGURE 20 
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OCTDEC SUBROUTINE CONVERTS 22 OCTAL NUMBERS 
TO 36 BITS OF BCD CODE 
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FIGURE 21 

READ/WRITE SUBROUTINE READS OR li/RITES ONE 
BLOCK OF INFORMATION ON MAGNETIC TAPE 
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FIGURE 22 

PRINT SUBROUTINE TAKES A STRING OF VECTOR OR 
CHARACTER CODE AND TRANSFERS IT TO THE 
DD 65 DISPLAY 
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figure 23 

LINE 1 SUBROUTINE TAKES X AND Y COORDINATES 
FROM A TABLE AND SETS UP CODE FOR SUBROUTINE 
PRINT IN A FILE FOR DISPLAY OF A LINE OF 
VECTORS BETWEEN THE COORDINATE PAINTS 
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FIGURE 24 

X PLATE FUNCTION GENERATORS WITH COMPUTED 
RESISTANCE VALUES IN OHMS FOR THE LETTER P 
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FIGURE 25 

Y PLATE FUNCTION GENERATORS WITH COMPUTED 
RESISTANCE VALUES IN OHMS FOR THE LETTER P 
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FIGURE 27 



PHOTOGRAPH OF DD65 DISPLAY OF INFORMATION 
INPUT TO THE COMPUTER FOR THE DESIGN OF THE 
LETTER "P" 



59 




FIGURE 28 

PHOTOGRAPH OF THE COMPUTER DESIGNED CIRCUITRY 
FOR THE X SYMBOL GENERATOR 
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FIGURE 30 

BLOCK DIAGRAM OF CIRCUITRY AND EQUIPMENT 
USED TO DISPLAY THE LETTER "P" 
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FIGURE 31 

FUNCTION GENERATOR NEGATIVE SWEEP SIGNAL. 
HORIZONTAL SCALE 100 MICRO SECONDS PER CENTI- 
METER. VERTICAL SCALE 10 VOLTS PER CENTIMETER 




FIGURE 32 

FUNCTION GENERATOR NEGATIVE SWEEP SIGNAL 
WITH INTENSITY MODULATION 
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FIGURE 33 

X FUNCTION GENERATOR OUTPUT SIGNAL 
HORIZONTAL SCALE 100 MICRO SECONDS PER CM. 
VERTICAL SCALE 100 MILLIVOLTS PER CM. 




FIGURE 34 

Y FUNCTION GENERATOR OUTPUT SIGNAL 
HORIZONTAL SCALE IS 100 MICRO SECONDS PER CM. 
VERTICAL SCALE 100 MILLIVOLTS PER CM. 
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FIGURE 35 

CHARACTER ”P" GENERATED IN ABOUT 200 MICRO 
SECONDS WITH BOTH HORIZONTAL AND VERTICAL 
SCALE OF 100 MILLIVOLTS. 
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EXIT To LINK 



FIGURE 36 

SUBROUTINE FIXDPT CARRIES OUT A PARTICULAR SE- 
QUENCE OF FIXED POINT ARITHMETIC COMPUTATIONS 
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EXIT TO LINK 



FIGURE 37 

SUBROUTINE SROOT COMPUTES THE SQUARE ROOT 
OF A FIXED POINT VARIABLE SQUARE 
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FIGURE 38 

FUNCTIONAL DIAGRAM OF KEYBOARD II 
ON THE DD 65 CONSOLE 
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APPENDIX I 



FORTRAN PROGRAM FOR THE DESIGN OF SYMBOLS 



;OOP.0595.TYNAN JM.S/1S/2S.15* 10000. 

• TN »L »E. 

PROGRAM DSINET 

DIMENSI0NNXY( 60 ) , IRP0S( 30 ) , IRNEG( 3 ) ♦ IVP0S( 30 ) » IVNE6( 30 ) ♦ I TEMP( 30 ) 

DO 11=1,30 

NXY ( 2*1-1 )=0 

NXY(2*I )=0 

ITEMP( I )=0 

IRPOS( I )=0 

IRNEG( I )=0 

IVPOS( I )=0 

1 IVNEG(I)=0 
IFLAG=-1 

DO 530 K=l,2 

NXY IS A TABLE OF X SPACE Y SPACE ETC. FORMAT 
READ 2, (NXY( I ) ,1 = 1,28,2) 

2 FORMAT ((7110)) 

NOW THE COMPUTATIONS FOR X OR Y WILL BE DONE 

IFLAG = IFLAG+1 

IT = 0 

ID = 0 

IV = 0 

ITBLPTR = 1 

KrPNTR = 1 

3 JPNTR = 1 

DO 5 1=1,60,2 

IF(NXY( I )+NXY( 1+2) )5,6,5 

5 CONTINUE 

6 ITBLPTR = 1-8 
8 ISENS = 25 

ISENS IS OUTPUT SENSITIVITY IN INPUT UN I TS/M I lL I AME TER 
IVMAX=20000 

IVMAX IS MAXIMUM INPUT VOLTAGE IN MILLIVOLTS 
RT = IDELTAD*VMAX*ISENS/( ID*CHANGE IN NXY) 

10 DO 11 1=1,1 TBLPTR,4 

IDELX = NXY( I+4)-NXY( I ) 
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n n 



IDELY = NXY( I+6)-NXY( 1+2) 

ISQUARE = IDELX**2+IDELY**2 
ITEMP( I+4)=IS0UARE/2 
DO 101 J=l»20 

I NT1 = I SQUARE- I TEMP ( I+4)**2 
INT2=2»ITEMP( 1+4) 

IC0RRECT=INT1/INT2 

101 I TEMP ( I+4) = ITEMP( I +4 ) + I CORRECT + 2* ( I NT 1- I CORR ECT* I NT 2 )/INT2 
IT = IT +ITEMP( 1+4) 

ID = IT 

ITEMPII+4) =IT 
IF ( IFLAG) 100»11 »100 
100 ITEMP( I+6)=ITEMP( 1+4) 

11 CONTINUE 
IVAR = 1 

IF ( IFLAG)12»13.12 

12 ITBLPTR = ITBLPTR + 2 
IVAR = 3 

C NOW TO COMPUTE IR NEG AND IR POS 

13 DO 41 I=IVAR, ITBLPTR. 4 
ITEMP1=NXY( I+4)-NXY( I ) 

IF( ITEMPl )131 .132.132 

131 SINFLAG = -1 

ITEMPl =ITEMP1*SINFLAG 
GO TO 133 

132 SINFLAG =1 

133 IRT2 = ( ITEMPl I+4)-lTEMP( 1 ) )*IvMAX*ISENS/( ID*999999) 

IF( ITEMP1-IRT2)32.32 .14 

14 IRT2 = ( ITEMPl I+4 )-ITEMP( I ) )*IvMAX*ISENS/( ID*(NXY( I+4)-NXY( I ) ) ) 
GO TO 45 

32 IRT2=999999*SINFLAG 
45 IF( I-IVAR)33.44.33 
44 IRT = IRT2 
GO TO 37 

JPNTR IS INDEX FOR POS QUANTITIES 
KPPTR IS INDEX FOR NEG QUANTITIES 
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33 IRD = IRT1-IRT2 
IF ( IRD) 34*331 *331 

34 SINFLAG=-1 
IRD=IRD*SINFLAG 
GO TO 332 

331 SINFLAG=1 

332 IRT = IRT2*IRTl/999999 
IF( IRD-IRT) 35*35*36 

35 IRT = 999999*SINFLAG 
GO TO 37 

36 IRT = lRT2*IRTl/( IRT1-IRT2 ) 

IRT = IRT - ( ( IRT*IT£MP( I ) )/lD> 

37 IF( IRT) 38*39*39 

make tables od positive and negative voltages 

38 IRNEG( JPNTR ) =-IRT 

IVNEG(JPNTR) =IVMAX*ITEMP( I )/ID +IV 
JPNTR = JPNTR + 2 
GO TO 40 

39 IRPOS(KPNTR) = IRT 

IVPOS (KPNTR)=IVMAX*ITEMP( I )/ID+lV 
KPNTR = KPNTR + 2 

40 IRTl = IRT2 

41 CONTINUE 

JPNTR = JPNTR - 2 
KPNTR = KPNTR - 2 
DO 50 J=1*KPNTR*2 

Il=IVMAX*IRPOS( J)/( IVMAX-IVPOS( J) ) 
I2=IVMAX»IRP0S( J)/IVPOS( J) 

IF( IVPOS( J) )806*806*802 
806 12=999999 
SO TO 803 
802 12=12-60 
803 IRP0S(J)=I1 
50 IVP0S(J)=I2 

DO 51 J=1*JPNTR*2 

I1=IVMAX*IRNEG( J) / ( I VMAX- I VNEG ( J ) ) 
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I 2= I VMAX* IRNEG( J ) / ( I VNEG( J ) ) 

IF( IVNEG( J) ) 606* 606 » 102 

606 12=999999 
GO TO 601 

102 12 = 12-60 

601 IRNEG(J)=I1 
51 1VNEG(J)=I2 

IF ( IFLAG)700»700,701 

700 PRINT 702 
SO TO 704 

701 PRINT 703 

702 FORMAT! IHl, 12X,47HTHESE ARE THE X FUNCTION GENERATOR POT SETTINGS) 

703 FORMAT! ///12X»47HTHESE ARE THE Y FUNCTION GENERATOR POT SETTINGS) 

704 PRINT 52, ! IRNEG! I ) » I VNEG! I ) * 1 = 1 ,JPNTR*2 ) 

5 2 FORMAT! // ! 22X , 6HRN EGl = , 1 6 ♦ 6X » 6HRNEG2 = , 16 ) ) 

530 PRINT 53,! IRPOSm ,IVPOS! I ),I = 1,KPNTR,2) 

53 FORMAT!//!22X,6HRPOSl=,I6,6X,6HRPOS2=, 16) ) 

END 
END 

EXECUTE. 
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I = 


1 UP 


RP(1S? = 


74 1 




1 = 


H ' * 


l<IH)S2 = 


! 6-. 



74 



0100 

0101 

0102 

0105 

cio4 

0105 

0106 

0107 

0110 

0111 

0112 

0115 

cn4 

cn5 

on6 



APPENDIX II 



ASSEMBLY LANGUAGE PROGRAM FOR THE DESIGN 
OF SYMBOLS, INCLUDING GRAPHICAL DISPLAY 



0100 


consol 


org 


100 




console control rtne 


7500 


wait 


exf 








7 o 4 o 






7 o 4 o 




select status dd65 


7600 




ina 




A 




0201 




Ipn 


1 




was keybboard 2 hit 


64o4 




zjb 


wait 




if not go wait 


7500 




exf 








7120 






7120 




sel input from keyboard 2 


7600 




ina 




0 




0277 




Ipn 


77 


D 




4205 




stf 


code 






2200 




Idf 








7000 






7000 






1602 




scf 


code 


c 




4201 




stf 


1 






0000 


code 




0 


1 D 


jiunp to appropriate driver 


0000 




end 









75 





0100 




org 


100 


■y^lGO 


Old 


tb 


pta 




0101 


704i 




Jpi 


trkbal 


ul02 


7500 




exf 




Jl05 


704o 






704o 


^lOk 


7600 




ina 




0105 


0201 




Ipn 


1 


0106 


6002 




zjf 


delay 


0107 


7044 




jpi 


consol 


0110 


2600 


delay 


Icf 




V.U1 


175c 






175c 


^112 


4077 




Std 


cntr 


0113 


5477 




aod 


cntr 


ull4 


6501 




nzb 


1 


0115 


6415 




zjb 


tb 




0044 


consol 


equ 


44 




oo4l 


trkbal 


equ 


4l 




0077 


cntr 


equ 


77 




0000 




end 





trackball driver routine 

A 

select dd6^ status 

Q 

”was keyboard 2 hit 
if not go delay 

C 



76 



0100 

0602 

4233 

7500 

7102 

7600 

0702 

4010 

7500 

7104 

7600 

0704 

4on 

o4oo 

4012 

2200 

3000 

4013 

2200 

1776 

4oi4 

o46o 

4015 

2200 

4677 

4o6o 

0101 

7043 

7101 

0000 

0010 

0011 

0012 

0013 

0014 

0015 

0043 

0000 



trkbal 



link 

X 

y 

tubvec 

size 

m 

loc 

print 



org 


100 


adn 


2 


stf 


link 


exf 


7102 


ina 




sbn 


2 


std 


X 


exf 


7104 


ina 




sbn 


4 


std 


y 


Idn 


0 


std 


tubvec 


Idf 


3000 


std 


size 


Idf 


1776 


std 


m 


Idn 


60 


std 


loc 


Idf 


4677 


std 


60 


pta 




jpi 


print 


jfi 


1 


equ 


10 


equ 


11 


equ 


12 


equ 


13 


equ 


14 


equ 


15 


equ 


43 


end 





A 



B 

read trackball coordinates and 
correct for offset 



C 



set up arguments for print 



O 



code for letter o 



E 



77 



store link address 





0173 


drw 


org 


173 


C173 


0620 




adn 


20 


oitU 


4262 




stf 


arg 


0175 


2035 




Idd 


tblpt 


0176 


6117 




nzf 


oldliat 


0177 


2243 




Idf 


setfil 


0200 


4036 




std 


eofpt 


0201 


2263 




Idf 


neg 


C202 


4055 




std 


tblpt 


0205 


2200 




Idf 




C2(^ 


7400 






7400 


C205 


4075 




std 


temp 


C206 


2200 


blank 


Idf 




C207 


2020 






2020 


r210 


4175 




sti 


temp 


0211 


5475 




aod 


temp 


0212 


1600 




scf 




0215 


7477 






7477 


C214 


6506 




nzb 


blank 


C215 


Old 


oldhat 


pta 




C216 


704 i 




jpi 


trkbal 


0217 


2010 




Idd 


X 


0220 


4135 




sti 


tblpt 


0221 


0110 




ls3 




0222 


6204 




Pjf 


4 


0225 


2241 




Idf 


neg 


0224 


l4io 




sed 


X 


0225 


4135 




sti 


tblpt 


0226 


5435 




aod 


tblpt 


^227 


5435 




aod 


tblpt 


025c 


2011 




Idd 


y 


0251 


4135 




sti 


tblpt 


0252 


one 




ls3 




'"253 


6204 




Fjf 


4 


0234 


2250 




Idf 


neg 


0255 


l4ii 




sed 


y 


0256 


4135 




sti 


tblpt 


0257 


5435 




aod 


tblpt 


024 c 


5435 




aod 


tblpt 


-241 


2600 




Icf 




0242 


4 ooo 


setfil 




4 ooo 


-245 


4076 




std 


entr 


0244 


7500 




exf 




^245 


7020 






7020 


'246 


74 co 




otn 




C247 


5476 




aod 


entr 


0250 


6502 




nzb 


2 


0251 


2200 




I.IT 




0252 


7004 






7004 


0253 


1435 




sed 


tblpt 



B 
C 
D 

^ move table pointer to y 

X and y are entered in 
pointer set for end of table 

dd 65 is erased 



78 



('254 


6007 




zjf 


0 . 7!?5 


Old 




ITta 


0256 


0000 


arg 




0257 


2035 




10 d 


0260 


6003 




-Jf 


0261 


0101 




pta 


0262 


7046 




Jpi 


0263 


7021 


exit 


JPi 


0264 


7000 


neg 






0010 


X 


equ 




0011 


y 


equ 




0012 


tubvec 


equ 




0021 


tb 


equ 




0046 


dis 


equ 




0035 


tblpt 


equ 




C036 


eofpt 


equ 




oo 4 i 


trkbal 


equ 




'^076 


cntr 


equ 




0075 


temp 


equ 




0015 

0000 


loc 


equ 

end 



I G exit if first table entry 

|H 

|J 



exit 

tblpt 

exit 

dis 

tb 

7000 

10 

11 

12 

21 

hS 

55 

56 

4 l 

76 

75 

15 



79 



llnel 



0257 
0257 0602 

0260 1+062 

0261 51+56 

0262 0510 

0263 5035 

0264 4035 

0265 2135 

0266 4oio 

0267 1200 

0270 0777 

0271 4136 

0272 5436 

0273 5435 

0274 5435 

0275 20J5 

0276 4on 

0277 1200 

0300 0777 

0301 4^36 

0302 0502 

0303 5036 

0304 5435 
0505 5435 

0306 2135 

0307 4070 
0510 5435 
0311 5435 
0512 2135 
0315 4071 

0314 5435 

0315 5455 

0316 2200 

0317 2000 
032c 4136 

0321 o4c3 

0322 5056 
0325 2410 

0324 3070 

0325 4o66 

0326 6206 

0327 2466 

0330 4o66 

0331 o 4 o 4 

0332 4077 

0333 6103 

0334 o4oo 

0335 4077 



org 


257 


adn 


2 


std 


link 


aod 


eofpt 


Icn 


10 


add 


tblpt 


std 


tblpt 


Idi 


tblpt 


std 


xl 


Ipf 

sti 


777 

eofpt 


aod 


eofpt 


aod 


tblpt 


aod 


tblpt 


Idi 


tblpt 


std 


yi 


Ipf 

sti 


777 

eofpt 


Icn 


2 


rad 


eofpt 


aod 


tblpt 


aod 


tblpt 


Idi 


tblpt 


std 


x2 


aod 


tblpt 


aod 


tblpt 


Idi 


tblpt 


std 


y2 


aod 


tblpt 


aod 


tblpt 


Idf 

sti 


2000 

eofpt 


Idn 


3 


rad 


eofpt 


led 


xl 


add 


x2 


std 


a 


Pjf 


6 


led 


a 


std 


a 


Idn 


4 


std 


icode 


nzf 


3 


Idn 


0 


std 


icode 



0336 


2411 


led 


yi 


0337 


3071 


add 


y 2 


03^0 


4067 


std 


b 


03^+1 


6206 


PJf 


6 


0342 


2467 


led 


b 


0343 


4067 


std 


b 


0344 


o 4 o 6 


Idn 


6 


0345 


4076 


std 


jeode 


0346 


6103 


nzf 


3 


0347 


C 402 


Idn 


2 


035c 


4076 


std 


jeode 


0351 


3077 


add 


icode 


0352 


0111 


Is 6 




■353 


0110 


ls 3 




0354 


0103 


ls2 




■'355 


4075 


std 


iboth 


0356 


0303 


sen 


3 


c -357 


6105 


nzf 


5 


036c 


2077 


Ida 


icode 


0361 


6103 


nzf 


> 


■:362 


c 4 o 4 


Idn 


4 


03S3 


5075 


rad 


ibotn 


cp 64 


2067 


Idd 


b 


0365 


1200 


Ipf 




0366 


0774 




774 


0367 


0103 


ls2 




0370 


0103 


ls2 




0371 


0111 


ls6 




0372 


4067 


std 


b 


0373 


2066 


Idd 


a 


0374 


1200 


Ipf 




0375 


0774 




774 


‘-■'370 


C 1 C 3 


ls2 




0377 


0103 


ls2 




o 4 oo 


cm 


ls6 




c 4 oi 


4 o 66 


std 


a 


c 4"2 


3067 


add 


b 


o 4 o 3 


6103 


nzf 


3 


o 4 o 4 


4035 


std 


tblpt 




6034 


zj'f 


exitl 


<->ho6 


2066 


Idd 


a 


;.; 4 o 7 


3467 


Sbd 


b 


c 4 io 


6206 


Pjf 


r 

0 


o 4 u 


2066 


Idd 


a 


0412 


4''74 


std 


nrshrt 


o 4 i 3 


2067 


Idd 


b 


04 l 4 


4073 


std 


nrlong 



circulate 11 

chop off bottom two bits 

circulate 10 
b now no. of y vectors 

p 

chop off bottom two bits 

circulate 10 
a now no. of x vectors 

I 0. exit if input zero 

H X has least vectors 
y has most vectors 



81 



0415 


6107 




nzf 


7 




note mostly equals jeode 


o 4 i 6 


2077 




Idd 


icode 




line inclined less than 45 degrees 


04 i 7 


4076 




std 


mostly 




to X axis 


o 420 


2067 




Idd 


b 






0421 


4074 




std 


nrshrt 


1 


y has least vectors 


0422 


2066 




Idd 


a 


«J 




0423 


4073 




std 


nrlong 




x has most vectors 


0424 


2473 




led 


nrlong 






0425 


4077 




std 


limit 




limit equals -no. of most vectors 


0426 


2074 




Idd 


nrshrt 


1 




0427 


4072 




std 


switch 






0430 


•o 44 o 




Idn 


4 o 


1 




0431 


4071 




std 


intbit 






0432 


2071 


return 


Idd 


intbit 


1 ^ 




0433 


6107 




nzf 


clear 






o 434 


2200 




Idf 








0435 


7700 






7700 




store 770G at end of file 


0436 


4136 




sti 


cofpt 


L 




0437 


5436 




aod 


eofpt 






o 44 o 


6147 




nzf 


exit 






C 44 i 


6 o 46 


exitl 


zjf 


exit 






o 442 


o 4 oo 


clear 


Idn 


0 






o 443 


4 o 66 




std 


Ir 




set Ir for right 


0444 


2073 


gnx 


Idd 


nrlong 






oi ^45 


3472 




sbd 


switch 


M 




c 446 


3472 




sbd 


switch 






0447 


6210 




Pjf 


10 




test to determine code for 


045c 


2075 




Idd 


iboth 1 


lo 


next vector 


0451 


4065 




std 


r.'.ove 1 


|N 


45 degree vector chosen 


0452 


2074 




Idd 


nrshii; 






0453 


3473 




sbd 


nrlong 


P 




454 


5072 






swilcl. 






■^55 


0 :> 0 o 




* P 


r 






nhyr 


6105 




nzf 


5 








2076 




lie 


mostly 






o46o 


4065 




std 


move 


0 


a vector from mostly chosen 


o 46 l 


2074 




Idd 


nrshrt 






0462 


5072 




rad 


switch 






0463 


5477 




aod 


limit 




check off one vector from limit 


0464 


6102 




nzf 


2 






0465 


4071 




std 


intbit R 


limit reached 


o 466 


2065 




Idd 


move 






0467 


1471 




sed 


intbit 




form vector code 


0470 


4065 




std 


move 






0471 


2466 


testlr 


led 


Ir 






c 472 


4 o 66 




std 


Ir 


s 




0473 


6107 




nzf 


left 






0474 


2065 




Idd 


move 






0475 


1463 




sed 


buf 


T 




0476 


4136 




sti 


eofpt 




assembleone word 



82 



c477 


5436 




aod 


eofpt 


0500 


6546 




nzb 


retxim 


0501 


6447 




zjb 


return 


0502 


2065 


left 


Idd 


move 




0503 


0111 




ls6 




U 


C 5 o 4 


4063 




std 


buf 


temporarily store left half word 


0505 


6441 




sjb 


gnx 


0506 


6542 




nzb 


gnx 


0507 


7062 


exit 


jpl 


link 




0077 


icode 


equ 


77 




0076 


jcode 


equ 


76 




0075 


iboth 


equ 


75 




0074 


nrshrt 


equ 


74 




0073 


nrlong 


equ 


73 




0076 


mostly 


equ 


76 




0077 


limit 


equ 


77 




0072 


switch 


equ 


72 




0071 


inthit 


equ 


71 




0066 


a 


equ 


66 




0067 


b 


equ 


67 




0066 


Ir 


equ 


66 




0065 


move 


equ 


65 




0063 


buf 


equ 


63 




G062 


link 


equ 


62 




0010 


xl 


equ 


10 




0070 


x 2 


equ 


70 




0011 


yi 


equ 


11 




0071 


y2 


equ 


71 




0036 


eofpt 


equ 


36 




0035 


tblpt 


equ 


35 




0015 


loc 


equ 


15 




0012 


tubvec 


equ 


12 




0000 




end 





83 



C5 i 6 

0602 

4007 

o4oo 

4072 

4070 

4063 

2012 

3245 

4244 

2010 

1241 

i4i5 

4067 

2014 

4065 

2011 

1253 

1633 

4o64 

6106 

0503 

4074 

0507 

4075 

6105 

0502 

4074 

0502 

4075 

c4oo 

4071 

2070 

6005 

o4oo 

6067 

2065 

6050 

0376 

6007 

5463 

6124 

6023 





org 


516 






print 


adn 


2 


|a 


clear l6c upper lower half ind 




std 


7 




set linkage 




Idn 




1 


clear 160 upper lower half ind 




std 


ul 


B 


end message flag 




std 


flag 




and 




std 


nflag 




clear multiple vector flag 




Idd 


tubvec 




load tube vector argument 




adf 


Ithous 








stf 


desig 




generate designator bits 




Idd 


X 




b coordinate 




Ipf 


mask 




mask right 9 bits 




scd 


size 




merge size argument bits 




std 


bufl 




hold for output 




Idd 


m 


Ni» 


dd65 memory address 




std 


■buf3 




hold for output 




Idd 


y 




y coordinate 




Ipf 


mask 








scf 


desig 




merge desig bits 




std 


bxif4 








nzf 


short 




go add 2 characters 


string 


Icn 


3 








std 


vrdetr 


tN 


set to count 12 bit word 




Icn 


7 


D 






std 


bytetr 




set to count 6 bit byts 




nzf 


clear 




unconditional jump 


short 


Icn 


2 








std 


vrdetr 








Icn 


2 








std 


bytetr 


£ 


short two char seq. for desig w 


clear 


Idn 










std 


Ir 




clear dd65 left right indicator 


mx 


Idd 


flag 




read next character routine 




-Jf 


3 


p 






Idn 












term 




fill blank if flag set 




Idd 


nflag 1 








zjf 


normal 


G 


check if mult vector flag set 




sen 


76 , 


1 j 


chek if flag being set 




zjf 


go 1 


n 






aod 


nflag ij 


flag is set 




nzf 


normal'*^ 






zjf 


normal 




unconditional jump 



84 



1000 

0777 

0000 

2072 

6310 

2115 

0111 

0277 

4od3 

0563 

4063 

6107 

2115 

0277 

4063 

2463 

4063 

5415 

2115 

4077 

2063 

6103 

2472 

4072 

2072 

2077 

0111 

4077 

6107 

6006 

6552 

6466 

2063 

6102 

5415 

2077 

0277 

4o77 

0376 

6io4 

2077 

4063 

6566 

2077 

0377 



Ithous 




1000 


mask 




777 


desig 




0 




go 


Idd 


ul 


K 

L 




njf 


upr 






Idi 


loc 






ls6 








Ipn 


77 


IV 1 




std 


nflag 


N 




Icn 


nflSLg 






std 


nflag 






nzf 


normal 




upr 


Idi 


loc 






Ipn 


77 






std 


nflag 


M 




led 


nflag 






std 


nflag 






aod 


loc 




normal 


Idi 


loc 






std 


temp 






Idd 


nflag 






nzf 


3 






led 


ta 




std 


ul 




Ic'd 


ul 




z ■ f* 


lO'-TQT 




Idd 


temp 






ls6 








std 


temp 


M 




nzf 


maskof 






zjf 


maskof 




mxl 


nzb 


mx 


jump 


zjt 


string 


lower 


Idd 


nflag 






nzf 


maskof 


hi 




aod 


loc 




maskof 


Idd 


temp 




Ipn 


77 






std 


temp 


0 




sen 


76 






nzf 


tstend 






Idd 


temp 




std 


nflag 


p 




nzb 


mx 


tstend 


Idd 


temp 




sen 


77 



set flag routine 



pick up pair of characters 



change upper loi/er indicator 



circulate 6 places 



uncondo jiunp to maskof ri^t 6 



loc unchanged for multi vector 
increment I60 memory loc. 



test for multi vector 



66 



o 646 


6 io 4 




nzf 


contin 


sense 77 code 


C6U7 


4077 


term 


std 


temp 




0650 


0500 




Icn 




Q 


0651 


4o70 




std 


flag 


0652 


2471 


contin 


led ' 




1 


0653 


4071 




std 


Ir 


1 R change Ir indicator 


C65U 


6116 




nzf 


left 




C655 


2474 




led 


wrdetr 




0656 


3232 




adf 


outbuf 


count outbuf backwards 


0657 


4073 




std 


index 


form indexer 


0660 


2077 




Idd 


temp 


s 


0661 


1476 




sed 


buf 




0662 


4173 




sti 


index 


pack output word 


0665 


5474 




aod 


wrdetr 




c 66 k 


6111 




nzf 


cycle 


loop till seventh 


0665 


2012 




Idd 


tubvec 




0666 


0111 




ls6 




T 


0667 


4077 




std 


temp 




0670 


6616 




Pjb 


contin 


merge tubvec bits 


0671 


6717 




njb 


contin 




0672 


2077 


left 


Idd 


temp 




0675 


0111 




ls6 




(j circulate 6 


0674 


4076 




std 


buf 


0675 


5475 


cycle 


aod 


bytctr 




0676 


6547 




nzb 


mxl 1 


1 w 


0677 


0402 




Idn 


2 ' 


1 V 


0700 


5014 




rad 


m 




0701 


7506 




exf 


update 


W 


C702 


7306 




out 


outbuf 


0703 


0070 






70 




0704 


2070 




Idd 


flag 




07-"5 


6455 




zjb 


Jump 


|X 


0706 


7007 




jpi 


7 




0707 


7020 


update 




7020 




0710 


0064 


outbuf 




64 






0077 


temp 


equ 


77 






0076 


buf 


equ 


76 






0075 


bytctr 


equ 


75 






0074 


wrdctr 


equ 


74 






0073 


index 


equ 


73 






0072 


ul 


equ 


72 






0071 


Ir 


equ 


71 






0070 


flac 


equ 


70 





86 



0067 

oo66 

0065 

oo64 

0063 

0010 

0011 

0012 

0013 

ooi4 

0015 

0000 



biifl 


equ 


67 


buf2 


equ 


66 


buf3 


equ 


65 


buf4 


equ 


64 


nflag 


equ 


63 


X 


equ 


10 


y 


equ 


11 


tubvec 


equ 


12 


size 


equ 


13 


m 


equ 


14 


loc 


equ 

end 


15 



87 





0750 




org 


75c 


0750 


0602 


dis 


adn 


2 


0751 


4264 




stf 


link 


0752 


2611 


erase 


Icf 


setfil 


0753 


4076 




std 


temp 


075i+ 


7500 




exf 




0755 


7020 






7020 


0756 


7400 




otn 




0757 


5476 




aod 


temp 


0760 


6502 




nzb 


2 


0761 


4 oi 4 




std 


m 


0762 


2200 




Idf 




C763 


4000 


setfil 


4 oco 




0764 


4015 




std 


loc 


0765 


1436 




sed 


eofpt 


0766 


6 cA 6 




zjf 


exit 


C76v 


2200 




Idf 




'770 


3600 






3600 


0771 


4037 




std 


psnpt 


'772 


4076 




std 


temp 


:773 


o 4 oo 


clear 


Idn 




077^ 


4176 




sti 


temp 


0775 


5476 




aod 


temp 


C776 


i4i5 




sed 


loc 


C-777 


6504 




nzb 


clear 


1^0 r 


2115 


loop 


Idi 


loc 


1:01 


4012 




std 


tubvec 


no 2 


5415 




aod 


loc 


1C03 


2 U 5 




Idi 


loc 




4 oio 




std 


X 


1-05 


cue 




ls3 




IzC 


1200 




Ipf 




2nc'f 


7700 






7700 


icr; 


4076 




std 


temp 


l^'ll 


5415 




aod 


loc 


1012 


2115 




Idi 


loc 


1 13 


4 on 




std 


y 


l'l4 


0110 




ls3 




1015 


0111 




ls6 




l')l 6 


0277 




Ipn 


77 


IC17 


1476 




sed 


temp 



displays the file 

B 

C 

D 

clear the position table 

E 

p x,tubvec and y args now in print 
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xy now in position table 



1020 


4137 




sti 


psnpt 


p''->l 


5437 




ao i 


psnpt 


1022 


2015 




Idd 


loc 


1 '-2,0 






soil 


' 


u. . r 


^157 








1025 


5437 




aod 


psnpt 


1026 


5415 




aod 


loc 


1027 


0101 




pta 




1030 


7043 




Jpi 


print 


1 C 31 


5415 




aod 


loc 


1032 


1436 




Isd 


eofpt 


1('55 


6533 




nzb 


loop 


1034 


7101 


exit 


jfi 


link 


1^35 


0000 


link 








0037 


psnpt 


equ 


37 




0076 


temp 


equ 


76 




0015 


loc 


equ 


15 




0014 


m 


equ 


14 




0012 


tubvec 


equ 


12 




0010 


X 


equ 


10 




con 


y 


equ 


11 




0043 


print 


equ 


43 




0036 


eofpt 


equ 


36 




0000 




end 





F record starts two Dcfore y 

position table contains address 
of start record 

loc set for beginning of string 
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1050 




ors 


1^70 




routine to enter characters from 


1 ' 7 ' 


0101 


enter 


pta 




I'" 


dd65 hej^board 1 into a file 




704 i 




Jpi 


trkbal 


vhich starts at cell 4 CCC and 


r '52 


04 f’i 0 




I'-'Ui 


0 




ends at eofpt stored in cell 56 




4 o 6 o 




std 


ul 






I'^h 


4156 




sti 


eofpt 




enter tubvec code in file 


1 '' 5 ? 


5456 




cod 


eofpt 






l'' 5 o 


2010 




1-^d 


X 


6 




1 ' 57 


4156 




sti 


eofiA 


enter x into file 


i ''O'^ 


5456 




aod 


eofpt 






1 '<6l 


2':'ii 




lid 


y 






1 ^'2 


4156 




S“C 3 , 


ecf T:t 




enter y into file 


10:5 


7500 


wait 


exf 








l-'h 


7 o 4 o 






1 




select ddi'v c^'^tus 


.v '5 


76^0 




inr 




c 




1 r\ " 
-L - 


0206 




Ipn 


6 






l'"'u 7 


64 o 4 




zjb 


^/ait 




wait vintil keyboerd 1 or cr hit 


r-(0 


4 o 6 l 




std 


code 






I'.'TI 


0204 




Ipn 


4 


D 




1072 


6 l 46 




nzf 


exit 




exit if cr hit 


1-' i 3 


2 C 5 i 




Idd 


code 






107U 


0202 




Ipn 


2 






1'75 


6412 




sjc 


vs.it 




vas Iceybosrd 1 hit 




7500 




exf 


714 o 




keyboard 1 was hit 


777 


7140 








select input from keyboard 1 


llfir 


7600 




ina 








1101 


4 o 62 




std 


char 






U^'2 


246 o 


store 


led 


ul 


E 




ir '5 


4 o 6 o 




std 


ul 




is this upper or lover 


1104 


6214 




iP«j 


lover ' 




ii ('5 


5456 




aod 


eofpt 






11(^6 


2062 




Idd 


cx'^r 




is upper 


il'r 


^"111 




ls6 








111c 


0520 




sen 


20 






1111 


4156 




sti 


eofpt 


F 


put char with eof mark in file 


1112 


5456 




aou 


eofpt 




set end of file 


1115 


2216 




Idf 


neg 






lil 4 


4156 




sti 


eofpt 






1115 


5456 




aou. 


eofpt 






1116 


\y 4 oo 




lun 


0 






1117 


6011 




zjf 


des 




go to clear select and display 


H 2 u 


2156 


lower 


Idi 


eofpt 




is a lower character 


1121 


0320 




sen 


20 




clear eof mark from file word 


1122 


1462 




sed 


char 




add new char to file word 


1125 


4156 




sti 


eofpt 


A 


put word back into file 


1124 


5456 




aod 


eofpt 


& 


1125 


2204 




Idf 


neg 






1126 


4156 




sti 


eolpt 




put eof mark into file 


1127 


5456 




aod 


eofpt 






115 


75^0 


des 


exf 









IH 



90 





77^0 


neg 




7700 


iiy?. 


olCl 




pta 






7046 




jpi 


dis 


U:>4 


05^2 




Icn 


2 


11^5 






rad 


eofpt 


U;j6 


w4d0 




Idn 


0 




6454 




zjh 


wait 


n4o 


7500 


exit 


exl' 




n4i 


714c 






7140 


1142 


'jSw'J 




ina 




114:5 


0402 




lun 


2 


1144 


50:56 




raa 


eofpt 


1145 


7o21 




jpi 


tb 




ov^6w 


ul 


equ 


bw 




0vj61 


coue 


equ 


61 




0062 


char 


equ 


62 




0046 


dis 


equ 


46 




CJ44 


consol 


equ 


44 




w04l 


trkhal 


equ 


4l 




0036 


eofpt 


equ 


36 




oo21 


fb 


equ 


21 




Oolv^ 


X 


equ 


Iv. 




0011 


y 


equ 


11 




OGOO 




end 





clear dd.65 select 

display file showing new character 
reset file marker for new character 
wait for new character 

exit after carriage return 
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11 

1151 

1152 

1155 

1154 

1155 

U56 

1157 

1160 

1161 

1162 

1165 

1164 

1165 

1166 

1167 

1170 

1171 

1172 

1175 

U74 

1175 

1176 

U77 

120G 

12G1 

12 j2 

1205 

12C4 

1205 

12C6 

12C7 

121c 

1211 

1212 

1215 

1214 

1215 

1216 

1217 

122G 

1221 

1222 

1225 

1224 



1150 




ora 


1150 




removes a string of 


GlCl 


remove 


pta 




1 K 


vectors or characters from 


704 i 




OPi 


trkbal 


h 


the computer file 


2G10 




Iciu 


X 






0110 




ls5 






shift X 


1200 




Ipf 








7700 






7700 




mask X 


4076 




Std 


xy 




store X 


2011 




Idd 


y 


B 




0110 




ls5 




shift y 


Gill 




ls6 








0277 




Ipn 


77 




mask y 


1476 




scd 


xy 




form xy coordinates 


4076 




std 


xy 






2200 




Idf 








5600 






5600 






4077 




std 


posit 




initialize position table address 


2177 


search 


Idi 


posit 




search for a string with same 


1476 




scd 


xy 


c 


xy coords as trkbal 


6006 




zjf 


found 


D 




o 4 o 2 




Idn 


2 






5077 




rad 


posit 






1^57 




scd 


psnpt 






6506 




nzb 


search 




7021 


exit 


.ipi 


tb 




exit after removing string or if 


5477 


foiind 


aod 


posit 




string not found 


2177 




Idi 


posit 






4«.i4 




sta 


loc 




put address of file to be removed in loc 


5477 




ax>d 


posit 






1457 




scd 


psnpt 


E 


check if this is the last string 


6 c 12 






last 






5477 




aod 


posit 






2177 




Idi 


posit 






4075 




std 


next 




put start of next file in next 


2175 


rnoveup 


Idi 


next 






4ii4 




sti 


loc 






54 i 4 




aod 


loc 






5475 




aod 


next 


F 




1456 




scd 


eofpt 






6505 




nzb 


moveup 






2014 


last 


Ida 


loc 






4o56 




std 


eofpt 




end of file pt is at loc 


0101 




pta 


1 






7 o 46 




Jpi 


dis 


Gr 




0400 




Idn 


0 






6425 




z.jb 


exit 






0077 


posit 


equ 


77 






uu 76 


xy 


equ 


76 






uu75 


next 


equ 


75 
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cntr 


ec^u 


74 


wo46 


ais 


e^n 


46 




consol 


equ 


44 


uj4i 


trkbal 


equ 


4l 


w037 


psnpt 


equ 


^7 


CiCj>b 


eof.pt 


equ 


o6 


0u21 


tb 


equ 


21 


uOlC 


X 


equ 


10 


0011 


y 


equ 


11 


0014 


loc 


equ 


l4 


ccoo 




end 





93 





1250 


comput 


org 


1250 


1250 


0504 




Icn 


4 


1251 


5035 




rad 


tblpt 


1252 


o4oo 




Idn 


' 0 


1255 


4012 




std 


dist 


1254 


4015 




std 


updist 


1255 


2200 


table 


Idf 




1256 


7000 


addr 




7000 


1257 


4050 




std 


index 


1260 


0602 




adn 


2 


1261 


4C52 




std 


index2 


1262 


0602 




adn 


2 


1263 


4054 




std 


index4 


1254 


0602 




adn 


2 


1265 


4056 




std 


index6 


1266 


2200 




Idf 




1267 


7500 






7300 


1270 


4015 




std 


tpt 


1271 


0400 




Idn 


0 


1272 


4115 




sti 


tpt 


1275 


5^15 




aod 


tpt 


1274 


0400 




Idn 


0 


1275 


4115 




sti 


tpt 


1276 


o 4 o 5 




Idn 


-Z 

> 


1^77 


5015 




rad 


tpt 


1300 


2200 




Idf 




1301 


0400 






400 


1302 


4002 




std 


viriax 


1503 


o4oo 


loop 


Idn 




1504 


4o6l 




std 


bufl 


1505 


4063 




std 


buf3 


1506 


4oii 




std 


umin 


1307 


2550 




lei 


index 


1510 


3154 




adi 


index4 


1311 


4o6o 




std 


delx 


1312 


6205 




Pjf 


Z 


1315 


246l 




led 


bufl 


1514 


4o6i 




std 


bufl 


1315 


2552 




lei 


index2 


1316 


3156 




adi 


index6 


1317 


4062 




std 


dely 


1320 


6205 




Pjf 


5 


1321 


2463 




led 


buf5 


1322 


4063 




std 


buf5 


1523 


0101 




pta 




1324 


7o4C' 




Jpi 


arith 


1325 


0031 






31 


1526 


0060 






delx 


1327 


0060 






delx 


1330 


0060 






delx 



computes resistance, bias voltage 
values 

^ index is table index 



all indices are now set 



form delta x 

convert to 22 bit arith format 
form delta y 

convertto 22 bit arith format 



delta X is now squared 
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1551 

1552 

1555 

155^ 

1555 

1556 

1557 

1540 

1341 

1342 

1543 

1344 

1345 

1346 

1547 

1550 

1551 

1352 

1555 

1554 

1555 

1556 

1557 

1360 

1301 

1302 

1563 

1364 

1565 

1366 

1367 

1370 

1571 

1372 

1373 

1374 

1375 

1376 

1577 

l4oo 

l4oi 

1402 

1403 

l4o4 

1405 

l4o6 

i407 

l4io 

1411 



* 



0031 






31 






0062 






dely 






0062 






dely 


rs 




0062 






dely 


D 


delta y is now squared 


0001 






1 






0060 






delx 






0062 






dely 






0060 






square 




form sum of squares 


o4oo 




Ida 


0 






6003 




zjf 


root 






0000 


xyflag 










6541 


loopl 


nzb 


loop 






ClOl 


root 


pta 




c 




7047 




Opi 


sroot 


c. 


root goes to tpt location 


0101 




pta 








704o 




jpi 


arith 






0001 






1 






0015 






tpt 






0012 






dist 






0012 






aist 


p 


distance is old distance plus 


2012 




Idd 


dist 




square root sqare 


4115 




sti 


tpt 




tpt becomes the present distance 


5415 




aod 


tpt 






2013 




Idd 


updist 






4115 




sti 


tpt 




transferred top irialf word 


o4o4 


ini 


Idn 


4 




now to increase indices 


5050 


instl 


rad 


index 






5701 




aod 


instl 






0207 




Ipn 


7 






6504 




nzb 


ini 


Gr 


check if all indices are increased 


0403 




Idn 


3 






5015 




rao. 


tpt 




tpt now increased by four 


0510 




Icn 


10 






5507 




rab 


instl 




instl now reset 


2050 




Idd 


index . 






1435 




scd 


tblpt 


H 


check if index at end of table 


6531 




nzb 


loopl 1 






2200 




Idf 








7000 


tad 




7000 




finished dist time computations 


4051 




std 


indexl 




set for first x 


2736 




Icb 


xyflag 






4537 




stb 


xyflag 






6105 




nzf 


exx 


J 




0402 




Idn 


2 


K 


is a y calculation 


5051 




rad 


indexl 


1 


set for first y 


0402 




Idn 


2 






5035 




rad 


tblpt 




set for last y 


2311 


exx 


Idb 


tad 




tablpt set for last x 


3230 




a-f 


hund 




if an X calculation 



95 



14i2 


4057 




std 


index7 


1415 


3226 




adf 


hund 


I4l4 


4055 




std 


index5 


1415 


5224 




adf 


hund 


l4i6 


4055 




std - 


index 5 


1417 


0404 




Idn 


4 


1420 


3051 




add 


indexl 


1421 


4050 




std 


index 


1422 


6102 




nzf 


2 


1425 


0777 


arg2 




777 1 


1424 


2501 


begin 


Idb 


arg2 


1425 


4000 




std 


sens 


1426 


0400 




Idn 


0 


1427 


4001 




std 


1 


1450 


4005 




std 


udiff 


1451 


4067 




std 


buf7 


1452 


4011 




std 


11 


1453 


2551 




lei 


indexl 


1454 


3150 




adi 


index 


1455 


4004 




std 


diff 


1456 


6504 




njf 


C 0115 ) 


1457 


0401 




Idn 


1 


l4Uo 


6207 




Pjf 


load 


l44i 


0100 


hund 




100 


1442 


24o4 


comp 


led 


diff 


1445 


4004 




std 


diff 


1444 


0500 




Icn 




1445 


4067 




std 


buf7 


1446 


0501 




Icn 


1 


1447 


4066 


load 


std 


sinflg 


1450 


2307 




Idb 


hund 


1451 


4010 




std 


min 


1452 


2200 




Idf 




1455 


5777 






3777 


1454 


4oi6 




std 


max 


1455 


o405 




Idn 


3 


1456 


4017 




std 


17 


1457 


2015 




Idd 


tpt 


l46o 


0704 




sbn 


4 


l46i 


4027 




std 


dtl 


1462 


2004 




Idd 


diff 


1465 


6021 




zjf 


big 


1464 


0101 




pta 




1465 


7020 




OPi 


fixdpt 


l466 


0101 




pta 




1467 


7040 




Jpi 


arith 


1470 


0002 






2 


1471 


0016 






max 


1472 


0064 






rt2 


1473 


0004 






testl 


1474 


0002 






2 


1475 


0064 






rt2 


1476 


0010 






rain 


1477 


O'jOO 






test2 



rpos table index 
rneg table index 
t table index 

index set for second x or y 



clear upper part of double precision 
cells 

forms delta x or delta y 

unconditional jump 

compliment diff to make positive 

sinflag contains the sign of 

delta X or delta y 

this is the minimum r allowed 

this is the maximum 
r allowed 



ans goes to rt2 

test! is difference between max r 
and actx;ial r 

test2 similar but using min 
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1500 


2005 




Idd 


testlu 




check sign of testl 


1501 


6213 




Pjl' 


test 


9 




1502 


6302 




njf 


big 






1505 


6557 


int 


nzb 


begin 






1504 


0101 


big 


pta' 






r is too big 


1505 


704 o 




jpi 


arith 






1506 


0031 






31 






1507 


OGI6 






max 


R 




1510 


0066 






sinflg 






1511 


0064 






rt2 






1512 


0401 




Idn 


1 






1513 


6221 




pjf 


okay 




unconditional jiamp 


1514 


2001 


test 


Idd 


test2u 


1 C 


test sign of test2 


1515 


6211 




Pjf 


sign 


b 




1516 


GlCl 




pta 








1517 


7040 




jpi 


arith 




r is too small 


1520 


0031 






31 






1521 


0010 






min 


T 




1522 


0066 






sinflg 






1523 


0064 






rt2 






1524 


0401 




Idn 


1 






1525 


6207 




Pjf 


okay 




unconditional jump 


1526 


0101 


sigii 


pta 








1527 


7040 




jpi 


arith 






1530 


0031 






31 


u 




1531 


0064 






rt2 






1532 


0066 






sinflg 






1533 


0064 






rt2 




r gets proper sign 


1534 


2:51 


okay 


Idd 


indexl 




test if this is the first 


1535 


0277 




Ipn 


77 




computation 


1536 

1537 


0703 

621c 




sbn 

pji 


3 

rcalc 


Y 




156 " 


2 '61 






rt2 




is first calculation 


15'. 1 


"r ,<Cv. 




std 


r 


V/ 




1562 


2065 






buf 5 




15 o 


t ^ 




std 


Vofl 














1 






15 '^ 5 






Pol' 


tblstr 




r is equal to rt2 


1546 


6543 


over 


nzb 


int 






1547 


0101 


rcalc 


pta 








1550 


704o 




Jpi 


arith 






1551 


0031 






31 






1552 


0062 






rtl 


X 




1553 


oc 64 






rt2 






1554 


0060 






buf 
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1555 


0002 






2 






1556 


0062 






rtl 






1557 


oo64 






rt 2 






1560 


OOOU 






diff 






1561 


2004 




Idd 


diff 






1562 


6034 




zjf 


tops 


X 




1563 


0101 




pta 








1564 


704o 




jpi 


arith 






1565 


004l 






4l 






1566 


0060 






buf 






1567 


0004 






diff 






1570 


0060 






r 




r eqals rtl rt2 over rtl minus rt2 


1571 


2461 




led 


bufl 




check sign of r 


1572 


6310 




njf 


alrite 






1573 


4061 




std 


bufl 






1574 


0501 




Icn 


1 






1575 


40 66 




std 


sinflg 


v 


r is negative 


1576 


0500 




Icn 




7 




1577 


4067 




s 


buf7 








q!. <,0 




1:' '1 








*» ■ 






3 u' 


•v-» 




is s'.o-;':lG'rcr.ted 




“101 


r.lrlte 


-r • 








1 J 






:*pi 


fU'it'- 






1^' 


' ' .3 






0 






1 - r 


•-0 •. 












- ~ 


/T 






J,. 






->• 

1 -1' 


'' 

■ .’'^2 






tes tl 
2 






}6ii 


006 c 






r 






l5i2 


0010 






min 






1613 


0000 






test2 




have formed limit value test 


161 U 


2005 




Idd 


testlui 




nurabe»*« 


1615 


6207 




Pjf 


try 1 


/A 


test if r too big 


1616 


2016 


tops 


Idd 


max 




r is big 


1617 


4o6o 




Q 

0 (,/SU. 


r 






162 j 


2017 




Isid 




6B 




1621 


4^61 




Std, 


bufl 






lo22 


.1 




lu.i'1 








lo 23 


o2jY 




Pd- 


tblstr 




unconditional J'^ap 




O''* ' '' 


yJ~ V 




v’^2 




see if r is less tlian i..in 




■^L. ,5 




PJI 


tblstr 


CC 






2..1 




las.. 


lain 






162/ 


4 0 .' 




st^. 


r 






lo% 


2v>ll 






uiiiin 


DD 




ioy± 


4s. 63 




3 0 < 


bufl 






J. 


2057 


obl3’’:r 


- n 


lncle;0 






1 Ol* 


4.1.. 




sta 


store 
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loy} 

loju 

1637 

l640 

l64l 

1642 

1643 

l644 

1645 

1646 

1647 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1660 

1661 

1662 

1663 

l664 

1665 

1666 

1667 

167c 

1671 

1672 

1675 

1674 

1675 

1676 

1677 

1700 

1701 

1702 

1703 

170 i^ 

17^5 

1706 

1707 

1710 

1711 



2 . oo 

o2Z2 

65(1 

2057 

4053 

0504 

5010 

6307 

0504 

5057 

2466 

4066 

2467 

4067 
0101 
7o4o 
0031 
0060 
0066 

0053 

j402 

5053 

0101 

704o 

G051 

0002 

0055 

0062 

004l 

0062 

0012 

0053 

2050 

0277 

l64o 

4070 
2053 
5256 

4071 
2170 
4171 

2010 

4053 

2064 

4c62 



loop;) 

direct 



change 



trnsfr 



fini 



IClLb 


sinflg 


negative 




ujj. 


cliange 


ilae, indicates tnat r 


pjj- 


direct 






nzb 


over 






Idd 


index7 


is to be 


stored in meg table 


std 


index3 






Icn 


4 


E& 




rad 


store j 






njf 


trnsfr) 


transfer 


after inhibit index 3 


Icn 


4 






rad 


index7 






led 


sinflg 


FF 




std 


sinflg 




led 


buf7 






std 


buf7 






pta 








Jpi 


arith 

31 

r 

sinflg 

index3 


&& 






Idn 


2 






rad 


index3 






pta 








jpi 


arith 

31 

vmax 

index5 

buf2 

4i 

b\if2 

dist 

index3 


HH 




j-cLdv 


index 






Ipn 


77 






3Cf 


blank 






std 


temp 






Idd 


index3 






adi 


quart 






std 


tempi 






Idi 


temp 






sti 


tempi 






Ida 


store 






std 


index3 






Idd 


rt2 


transfer 


rt2 


std 


rtl 







99 



1712 


2065 




Idd 


buf 5 


1715 


I4065 




std 


buf 5 


171 ^ 


oUo 4 


redo 


Idn 


4 


1715 


5050 


in 


rad 


index 


1716 


5701 




aob 


in 


1717 


0207 




Ipn 


7 


1720 


650U 




nzb 


redo 


1721 


0510 




Icn 


10 


1722 


5505 




rab 


in 


1725 


2051 




Idd 


index: 


172 h 


1U35 




scd 


tblpt 


1725 


6566 




nzb 


loop 5 


1726 


2100 




Idi 




1727 


13^4 






1344 


1750 


6105 




nzf 


exit 


1731 


0502 




Icn 


2 


1732 


5055 




rad 


tblpt 


1735 


04 o 4 


exit 


Idn 


It 


175I+ 


5055 




rad 


tblpt 


1755 


7101 






displ: 


1736 


2000 


disply 




2000 


1757 


7400 


blank 




7400 


17^0 


oijoo 


quart 




400 




0000 


sens 


equ 


0 




0000 


test2 


equ 


0 




0001 


test2u 


equ 


1 




0002 


vmax 


equ 


2 




0004 


testl 


equ 


4 




0004 


diff 


equ 


U 




0005 


udiff 


equ 


5 




0005 


testlu 


equ 


5 




COlO 


min 


equ 


10 




0010 


store 


equ 


10 




0011 


unin 


equ 


11 




0012 


dist 


equ 


12 




0015 


updist 


equ 


13 




0015 


tpt 


equ 


15 




0016 


nax 


equ 


16 




0017 


unax 


equ 


17 




0020 


fixdpt 


equ 


20 




0026 


dt 


equ 


26 




0027 


dtl 


equ 


27 




0055 


tblpt 


equ 


35 



JJ 






check if x or y 






calculation 



100 



0047 


sroot 


equ 


47 


0050 


index 


equ 


50 


0051 


indexl 


equ 


51 


0052 


index2 


equ 


52 


0053 


index 3 


equ 


53 


0054 


index 4 


equ 


54 


0055 


index 5 


equ 


55 


0056 


index6 


equ 


56 


0057 


index 7 


equ 


51 


oo6o 


buf 


equ 


60 


oo6o 


delx 


equ 


60 


oo6o 


sqiiare 


equ 


60 


r>36o 


r 


equ 


6r 


OOol 


bufl 


equ 


61 


0062 


buf2 


ecu 


62 


C062 


dely 


equ 


62 


0062 


rtl 


equ 


62 


0065 


b’af 3 


equ 


65 


0064 


bux 4 


equ 


64 


0064 


rt2 


equ 


64 


0065 


buf 5 


equ 


65 


oc66 


buf6 


equ 


66 


0066 


sinflg 


equ 


66 


0067 


buf 7 


equ 


67 


0070 


ter.ip 


equ 


70 


0071 


tempi 


equ 


71 


004o 


arith 


equ 


4 o 


0000 




ena 





101 



2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

250C 

25-1 

2502 

2503 

2504 

2505 

25-6 

2507 

251- 

2511 

2512 

2513 

2514 

2515 



245- 




org 


2450 




0500 


rd 


Icn 


I 


A 


4225 




stf 


type 1 


1 » 


6ni 




nzf 


wait 




o4oo 


wr 


Idn 






4222 




stf 


type 


a 


2035 




Idd 


tblpt 


4l0C 




sti 






7774 






7774 


r 


2036 




Idd 


eofpt 




4100 




sti 






7775 






7775 




7500 


wait 


exf 






7o4o 






7o4o 




76-0 




ina 




D 


0202 




Ipn 


2 




64o4 




zjb 


wait 




7500 




exf 






714o 






714o 




7600 




ina 




E 


42o4 




stf 


block 




0101 




pta 






7030 




jpi 


rw 


!f 


OOCC 


type 








0000 


block 








2302 




Idb 


type 




6C14 




zjf 


exit 


Cj 


2200 




Idf 






300c 






3000 




4013 




std 


size 




2100 




Idi 




H 


7774 






7774 




4035 




std 


tblpt 




2100 




Idi 






7775 






7775 




4036 




std 


eofpt 




-101 




pta 






7046 




Jpi 


dis 


|J 


7C44 


exit 


Jpi 


consol 




consol 


equ 


44 




0-46 


uis 


equ 


46 




- 03 - 


rw 


equ 


30 




-013 


size 


equ 


13 




w036 


eofyt 


equ 


36 




—35 


tblpt 


equ 


35 





end 



read/write driver 
read entry point 
set up read code 

write entry point 
set up write code 



select status dd 65 

wait until keyboard 1 is hit 
select input from keyboard 1 
set up block number arg 
jiump to read/write routine 

exit after write operation 
set up size arg for print 
recover end of table pointer 
recover eof pointer 
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^555 

«:!556 

2557 

2560 

2561 

2562 

2563 

2564 

25b5 

2566 

2567 

2570 

2571 

2572 

257 ^ 

2574 

2575 



2555 


blank 


org 


2555 


0602 




adn 


2 


4214 




stf 


link 


2035 




Idd 


tblpt 


3213 




adf 


quart 


0704 




sbn 


4 


4077 




std 


temp 


2212 


loop 


Idf 


letter 


4177 




sti 


temp 


04 o 2 




Icin 


2 


5077 




rad 


temp 


4605 




srf 


flag 


6605 




PO'b 


loop 


7021 

0000 


link 


JPi 


tb 


o4co 


quart 




4oo 


5252 


flag 




5252 


6242 


letter 




6242 


C077 


temp 


equ 


77 


0035 


tblpt 


equ 


35 


0021 

0000 


tb 


equ 

end 


21 



subroutine to acid letters bk 
in blank table to inciicate 
blanking recjuired 
link made 

addresses in blank table 
go to temporary storage 





2000 


disply 


org 


2000 


2^ XX' 


0501 




Icn 


1 


2G01 


4056 




std 


flag 


2002 


2200 




Idf 




2005 


5100 






5100 


200U 


4050 




std 


outlin 


2005 


4026 




std 


temp 


2000 


2200 




Idf 




20C7 


51^5 






5145 


2010 


4052 




std 


end 


2011 


2201 




Idf 


file 


2012 


4ooo 


file 




4ooo 


2015 


4056 




std 


eofpt 


2.'lk 


2126 


trans 


Idi 


temp 


2015 


4156 




sti 


eofpt 


201c 


5456 




aoQ 


eofpt 


2C17 


5426 




aod 


temp 


202\^ 


1452 




scd 


end 


2021 


6505 




nzb 


trans 


2022 


2056 




Idd 


flag 


2J^5 


6257 




Pjf 


pos 


202k 


6504 




njf 


intrim 


2v-'25 


5200 


posout 




52OG 


2^20 


3247 


posend 




5247 


O'' O'"’ 
2. >2 ( 


0777 


mask 




777 


I. 

<_v 


5456 


in trim 


aod 


flag 


2051 


2152 




Idi 


end 


2052 


’ 7'^Q 




scb 


file 


2: 55 


4026 




std 


temp 


1 5“ 


220c 




Idf 




0 ■ -;c 
- 


2720 






2720 


2 ';c 


4 i 2 c 




sti 


eemp 


2 57 


2200 




Idf 




204 c 


7100 






7100 


2 1-1 


4 C 51 




std 


rpcs 


20'-2 


0602 




adn 


2 


2'- 5 


4055 




std 


vpcs 


204 L 


210 




Idi 




2045 


1544 






1544 


2C1-6 


600L 




zjf 


con tin 


2-47 


2200 




Idf 




2050 


5027 






5020 


2^,51 


4 126 




sti 


temp 


2052 


2525 


con tin 


Idb 


posout 


2055 


405c 




std 


outlin 


2054 


2526 




Idb 


posend 


2055 


4052 




std 


end 


2 5 C 


2152 




Idi 


end 


2057 


4054 




std 


X 



converts resistance and bias voltage 
values to pot settings and rtakes up 
the dispay code for he file 
flag indicates whether info transfer 
is outline, pos or negative component 
code transfer 



end contains the end of file being 
transferred 

eofpt set at start of display file 
transfer one block of code 



one block has been transferred 



indices set for data tables 

load xyf lag, determine if x or y calc 



signifies a y calc 



X is ones complement of first x 
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1331 




Ipb 


inask 


position of pos components in disply 


20-31 


1+013 




std 


exx 


mask x to form dd65 code 


2062 


51+52 


pos 


aoa 


end 


20 .b 


2057 




Idd 


pospt 


2 CoU 


11+51 




scd 


rpos 


\Cr 


2065 


6075 




zjf 


skip 1 




2065 


2152 


four 


Idi 


end 




2067 


4076 




std 


addrss 




2070 


2015 




Idd 


exx 




2071 


4176 




sti 


addrss 




2072 


5452 




aod 


end 


H 


2-773 


2361 




Idb 


file 




2074 


0110 




ls 3 






2075 


4363 




stb 


file 




20 jC 


6610 




Pob 


four 




2077 


6302 




njf 


twice 


21 )C 


5564 


transl 


nzb 


trans 


2101 


0101 


twice 


pta 




21-02 


704o 




jpi 


arith 


compute pot settings 


2 K 5 


0031 






51 




210I 


0051 






rpos 




21-: 5 


0002 






v;:8:c 




21-)5 


0026 






temp 




2107 


OC-^2 






2 




211 


00 C 2 










2111 


0055 






vpcs 




on 2 2 


0000 






tempS 




2113 


004 l 






4 l 




211^ 


0026 






temp 




2115 


0000 






temp 2 




2116 


0000 






temp 2 




2117 


004 i 






hi 


I 


2120 


0026 






temp 


J 


21-?1 


0055 






■^rpos 




2122 


0026 






temp 




2123 


2055 




Idd 


vpos 




21 iL 


6103 




nzf 


5 




2125 


2576 




Idb 


mask 




2125 


4027 




std 


utemp 


make temp very large 


2127 


0400 




1 -dn 






Ot .* 


4 “;o 6 




std 


cntr 






2152 


two 


Idi 






on 


h20C. 




stf 


outalr 




- j- . 


51-52 






eril 




ii’:- 


'>101 




pt- 






21; j 


75>^5 






oct'^ec 




: , . ) 


ijuP-S 






tenp 




213 '^ 


0001 






X 




21 '. 


O-./jO 


ou-tadr 
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2lU 


0000 


outadr 






2lLl 


2001 




Idd 


uterap2 


2 i 42 


4027 




std 


utemp 


21U3 


2000 




Idd 


terap2 


2144 


4026 




std 


temp 


2145 


24 o 6 




led 


entr 


2l46 


4006 




std 


entr 


2147 


6516 




nzb 


two 


215 ^ 


0005 




zjf 


raore 


2151 


6567 


posl 


nzb 


pos 


2152 


6554 


trans2 


nzb 


transl 


2152 


^} 

^ i J 


raore 


Idn 


77 


2154 


5 jp 4 




rad 


rc 


— '-y ^ 


1256 




Ipf 


Liaskl 


215^ 


T '1^ 




k/U. 


ex:>: 


“ ."7 ■ * 


: 55 


auo 


lu.. 


vpo3 


-In- 


320c 




adf 




21:1 


) > - 






c 

0 




OO23 


skip 




negset 


— 


4 g 2 o 




std 


tenp 




2152 




Idi 


enO. 




4-070 




3 td 


addrss 


C-lv>0 


2126 




Idi 


terap 


i 


4176 




sti 


addrss 


21 


5452 




aod 


end 


2171 


24 o 6 




led 


entr 


2172 


4 oc 6 




std 


entr 


2 it: 


6514 




nzb 


due 


21 ' -r 


0511 




Icn 


11 


2175 


5052 




rad 


end 


4-1 i 'O 


0404 




Idn 


4 


217. 


5055 




rad 


vpos 


22-^,' J 


04 c 4 




Idn 


4 


2221 


5 C 51 




rad 


rpos 


22 •'2 


2050 




Idd 


outlin 


22':5 


4026 




std 


temp 


22 4 


6532 




nzb 


trai^s2 


22^5 


5456 


negset 


aod 


flag 


22c 6 


0301 




sen 


1 


22c 7 


6002 




zjf 


neg 


2210 


6124 




nzf 


exit 


2211 


2221 


neg 


Idf 


negend 


2212 


4052 




std 


end 


221 J 


2216 




Idf 


negout 


2214 


4050 




std 


outlin 


2215 


2152 




Idi 


end 


2216 


4054 




std 


X 


2217 


I2l4 




ipf 


maskl 


222.: 


4015 




std 


exx 



J 




L 



M 




O 

P 



106 



p 



2055 




4057 




2200 




7200 




4051 




0602 




4055 




5557 




530 . 


negout 


5547 


negend 


0777 


ir^askl 




exit 


704 l 




0101 




7046 




7021 




0036 


eofpt 


0050 


outlin 


0051 


rpos 


0052 


end 


0054 


X 


0055 


vpos 


0056 


flag 


0013 


exx 


oooc 


ternp 2 


0001 


utemp 2 


0006 


cntr 


0076 


addrss 


0057 


pospt 


0053 


negpt 


0026 


tenp 


0027 


utemp 


0046 


dis 


0021 


tb 


004 l 


trkbal 


oo4o 


arith 


0002 




0045 


octdec 


0000 





Idd 


negpt 


S t/d. 


pospt 


Idf 


7200 


Stu 


rpos 


adn 


2 


Std 


vpos 


nzb 


posl 


pta 

jpi 


3300 

5547 

777 

trkbal 


pta 

Jpi 


dis 


Jpi 


tb 


equ 


36 


equ 


50 


equ 


51 


equ 


52 


equ 


54 


equ 


55 


equ 


56 


equ 


13 


equ 


0 


equ 


i 


equ 


c 


equ 


76 


equ 


57 


equ 


53 


equ 


25 


equ 


27 


equ 


46 


equ 


21 


equ 


4 i 


equ 


4 c 


equ 


2 


equ 


45 


end 
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2517 

G602 

4076 

0601 

4075 

0601 

4074 

7500 

1161 

2575 

4077 

7507 

7600 

5477 

6703 

2176 

6006 

750c 

2131 

7210 

7776 

7074 

750c 

2111 

7303 

7776 

7074 

4000 

0077 

0076 

0075 

0074 

0000 



read/write routine 





org 


2517 






adn 


2 




rw 


std 


type 


A 




adn 


1 


• ^ 




std 


block 






adn 


1 






std 


link 






exf 


U6l 


|b 




lei 


block I 


1 




std 


cntr 1 


|c 


fwd 


exf 


read 






ina 




0 




aod 


cntr 


E 




njb 


fwd . 


F 




Idi 


type 1 


\r 




zjf 


write 1 






exf 






read 




2131 






inp 


four 


J 






7776 




Jpi • 


link 




write 


exf 


2111 


H 




out 


four 






7776 






Jpi 


link 




four 




4ooo 




cntr 


equ 


77 




type 


equ 


76 




block 


equ 


75 




link 


equ 


74 






end 







first arg is a code determining 
type of operation-read or write 
second arg is block number 

form return linkage 

rewind to load 
set cntr to neg of 
block number 



pass over blocks 

type equal to zero means write 
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2600 


octdec 


org 


260c 


2600 


0602 




adn 


2 


2.'m'.'1 


4 o 6 l 




std 


admos 


2602 


0601 




adn 


1 


2603 


4062 




std 


numnos 


2604 


0601 




adn 


1 


2605 


4 o 6 o 




std 


outadr 


2606 


0601 




adn 


1 


2607 


4 oc 4 




std 


temp2 


2610 


04 i 3 




Idn 


buf 


2611 


0703 




sbn 


3 


2612 


4 g 63 




std 


buf con 


2615 


2216 


limit 


Idf 


in 


2614 


4163 




sti 


buf con 


2615 


5702 




aob 


limit 


2616 


5463 




aod 


buf con 


2617 


46 n 




srf 


three 


262c 


6605 




Pjt) 


limit 


2621 


0503 




Icn 


3 


2622 


5507 




rab 


limit 


2623 


0101 




pta 




2624 


0623 




adn 


23 


2625 


4237 




stf 


last 


2626 


6223 




Pjf 


start 


2627 


6322 




njf 


start 


2630 


4444 


three 




4444 


2631 


7145 


in 




7145 


2632 


6671 


fi 




6671 


2633 


4520 


n 




4520 


2634 


OOCl 


octbl 




1 


2635 


cooc 






0 


2036 


CC 12 






12 


2637 


COCO 






C 


264 c 


0144 






144 


2 o 41 


coco 






0 


2642 


1750 






1750 


2643 


0000 






0 


2644 


3420 






3420 


2645 


0002 






2 


231.6 


3240 






324 o 


2647 


0030 






30 


2650 


0000 


ul 






2651 


2161 


start 


Idi 


admos 


2652 


4 f^ 6 i 




std 


admos 


2653 


2162 




Idi 


numnos 


2654 


4 o 62 




std 


numnos 


2C55 


2160 




Idi 


outadr 






B 



C 



X> 



E 



converts octal double precision sequence 
to bed 

obtain arguments 



load word infin in output buffer 



infin stands for infinity 



store arguments 
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4o6o 

2004 

4277 

0503 

4o64 

2200 

0000 

4065 

2161 

4o66 

5461 

2161 

4067 

2o64 

0615 

4063 

0101 

7'^o 

oo4i 

0066 

0065 

0014 

0031 

0014 

0065 

0016 

0002 

0066 

0016 

0066 

0502 

5065 

2014 

6005 

1240 

0712 

6222 

63 "''3 

04i2 

4oi4 

2756 

^^357 

6005 



loopl 



last 



loop 



fix 

okay 



std outadr 
Idd temp2 
stf link 

Icn 3 outer loop starts conversion of new word 

std wrdctr 
Idf er 



std 

Ivdi 

std 

aod 

Idi 

std 

Idd 

adn 

std 

pta 

Opi- 



Icn 

rad 

Idd 

zjf 

Ipf 

sbn 

PJ-f 

njf 

Idn 

std 

let 

sfb 

zjf 



pvrlO 

admos 

nuia 

admos 

admos 

linura 



G- 



^vcrdctr 

buf 

bufeon 



H 



inner loop divides num by powers of ten 
buffer control set to oresent buffer location 



arith 

41 



nvim 

pvnrlC 

code 

31 

code 

pn-lO 

temi)6 

2 



J 



num 

temp6 

num 

2 



pwrlO 

code 

fix 

mask 

12 



output 

oka;y 

12 



code 

ul 

ul 

Iwr 




N 



O 



if code zero must alter code 

mask off sign bit-nuiribers should be positive 

indicates number too large 

enter zero code in code 
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d,-:i 


2014 




Idd 


code 




2 i 3 P- 


0111 




Iso 


1 


|P 


2 Tyj 


4163 




St X 


buf con ' 


1 

ns 


Toh 


6541 




nab 


loop 






2 oi 4 


1 \/T 


1 Id 


cede 




d 73 jo 


1563 




sci 


buf con 


R 


2737 


4163 




sti 


buf con 




274 


5464 




aoQ 


vrdetr 


s 


2,41 


6746 




njb 


loop 


T 


2742 


C502 




Icn 


2 




u i-O 


5065 




rad 


buf con 




2(44 


2163 


output 


Idi 


buf con 




2745 


4 l 6 c 




sti 


outadr 


1 i 


07 ?' 






aod 


buf con 


u 


2 /‘f ( 


5^60 




aod 


outadr 




2750 


46u 




srf 


cycle ' 




2751 


6705 




njt 


output 




2752 


5461 




aod 


admos 




2755 


0501 




Icn 


1 




2754 


5062 




rad 


numnos 


V 


2755 


6574 




nzt 


loopl 




2756 


7101 




Jfi 


linlc 




2757 


coco 


link 








270O 


3777 


mask 




3777 




2761 


3567 


cycle 




3567 






0013 


buf 


equ 


13 






oc6o 


outadr 


equ 


6c 






cc6i 


admos 


equ 


61 






0062 


n'uranos 


equ 


62 






0063 


buf con 


equ 


63 






oo64 


wrdetr 


equ 


64 






0065 


pwrlC 


equ 


65 






C066 


num 


equ 


66 






CO67 


unum 


equ 


67 






oo4o 


ai'ith 


equ 


4 c 






0004 


temp 2 


equ 


4 






0014 


code 


equ 


l4 






0CI6 


temp 6 


equ 


16 






0076 


entr 


equ 


76 






coco 




end 







check if three words have "been transmitted 



output buffer storage so output address 



to 
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3220 


sroot 


org 


5220 


5220 


0602 




acn 


2 


A 


5221 


4oo6 




std 


link 1 


• > 


5222 


0577 




Icn 


77 , 




5225 


4055 




std 


index5 B 


5224 


o4oo 




Idn 


0 




5225 


4065 




std 


ub\if4 


5226 


4037 




std 


utwo 


5227 


04C2 




Ion 


2 




5250 


4036 




std 


two 


c 


5251 


4o64 




std. 


buf4 




5252 


2061 




Idci 


usqarei 


1 r\ 


-^255 


60'"'4 




zjf 


St'T.l’t I 




^ 1 

^-5h- 


0200 




Idf 




5255 


2'""'00 






2"^oo 




3252) 


4^64 




std 


buf4 


E 


3257 


ClCl 


stare 


pta 






524c 


7c4c 






arith 




3241 


0C4l 










3242 


^060 






square 


F 


3243 


0064 






tuf4 




3244 


C015 






tpt 




3245 


Cl''l 


root 


pta 




3246 


7o4o 




jpi 


arith 




3247 


C051 










525'^ ■ 


"'015 






Ol'O 




3251 


C015 






tpt 




5252 


oc64 






buf4 




3253 


1002 










3254 


oc6o 






square 




3255 


oc64 






buf4 


G 


3256 


co64 






buf4 




3257 


cc4i 






4l 




3260 


oo64 






buf4 




3261 


0015 






tpt 




5262 


0066 






buf6 




3263 


2066 




Idd 


buf6 




3264 


6206 




pjf 


pos 




5265 


0501 




Icn 


1 




3266 


4o64 




std 


buf4 


H 


5267 


0500 




Icn 


0 


5270 


4065 




std 


ubuf4 




3271 


6305 




njf 


seal 




3272 


0201 


pos 


Ipn 


1 




3275 


4o64 




std 


buf4 





finds square root of nos. of range 
1 to 4,000,0C0 octal 
make llnlc 

"bound number of iterations 
check if square greater than 5777 



coimite estimj’ted root squared r2 
form square-r2 

form square-rt2 over 2timesr 
buf6 scaled up by two 

obtain round off error 
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5274 


o 4 oo 




Idn 


0 


5275 


4065 




Std 


uhuf 4 


3276 


0101 


seal 


pta 




5277 


7 o 4 o 




Jpi 


arith 




3300 


oo4i 






4 l 




33 '"! 


0066 






bvif6 


1 


33-^2 


0036 






two 


J 


3303 


0066 






buf6 




3304 


0001 






1 




3305 


oo 64 






buf 4 




3306 


cc66 






buf6 


K 


33 C 7 


0066 






buf6 




331c 


2c66 




Idd 


buf6 


3311 


3067 




add 


ubuf6 I 


1 - 


3312 


6011 




zjf 


exit 1 




3313 


0101 




pta 




3314 


7 o 4 o 




jpi 


arith 




3315 


0001 






1 




3316 


0015 






tpt 




3317 


0066 






buf6 




3320 


0015 






tpt 




3321 


5455 




aod 


index 5 | (sj 


3322 


6555 




nzh 


root , Q 


3323 


7006 


exit 


jpi 


link 




0006 


link 


equ 


0 




oo 4 o 


arith 


equ 


4 o 




0015 


tpt 


equ 


15 




oo 64 


huf 4 


equ 


64 




0065 


ubuf 4 


equ 


65 




0060 


square 


equ 


6c 




0061 


usqsLre 


equ 


61 




Q036 


t\/o 


equ 


36 




0037 


utwo 


equ 


37 




0066 


huf 6 


equ 


66 




C067 


ubufo 


equ 


67 




0055 


index 5 


equ 


55 




'':000 




end 





add roimd off correction 
sense if correction factor zero 



add correction factor 

check if iteration hoiand reached 
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5100 

3101 

3102 

5105 

5104 

3105 

5106 

5107 

5110 

3111 

5112 

3115 

3114 

5115 

3116 

5117 

5120 

5121 

5122 

3123 

5124 

5125 

5126 

5127 

5150 

5131 

3152 

5133 

3134 

5155 

5136 

3157 

314o 

514i 

5142 

5145 

3144 

5145 

• 



2000 this is the main outlin code 

o44o 

0240 

7664 

5000 

7700 

2000 

0271 

0240 

7650 

5600 

7700 

2000 

0271 

0537 

7664 
5400 
7700 
2000 
0440 
0000 

7665 
5051 

5757 

5150 

1256 

5612 

0002 

5600 

7700 

0000 

0737 

0520 

0000 

6361 

4565 

7700 

004l 
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5200 

5201 

5202 

5205 

520U 

5205 

5206 

3207 

5210 

5211 

5212 

3215 

521U 

5215 

3216 

5217 

5220 

3221 

5222 

5225 

5224 

5225 

5226 

3227 

5230 

3231 

5252 

5255 

5254 

5235 

5236 

3237 

3240 

5241 

3242 

3245 

5244 

5245 

3246 

5247 

5250 

5251 

5252 

5255 

3254 

5255 

5256 

5257 

• 



2000 this is the code for the pos 

0000 outline 

0240 

7605 

5614 

5050 

5555 

1650 

5014 

7605 

5657 

5555 

5776 

0556 

7700 

2000 

ooou 

0110 

5050 

4255 

5151 

5542 

7700 

0000 

0000 

0144 

0000 

0000 

0000 

0000 

7700 

0000 

0000 

oo64 

oooo 

OOOw 



oooo 

0000 



7700 

7460 

5201 

5220 

5250 

5240 

3232 

5242 

5255 

5245 
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luu 2u00 this is the code for the neg 



UOOO 


outline 


0557 

7605 

5250 

5555 

5012 

1I+50 

501U 

7605 

5255 

5151 

5576 

0552 

7700 

2000 

OuOO 

0667 

5050 

*+657 

5555 

5746 

7700 

0000 

0000 

0655 

0000 

0000 

oooo 

0000 

7700 

0000 

0000 

0677 

0000 

0000 

0000 

0000 

7700 

7460 

5501 

5520 

5550 

5540 

5552 

5542 

5555 

5545 
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3400 


fixdpt 


org 


5400 






5^00 


0602 




adn 


2 


A 




5^01 


4 oo 6 




std 


link 


n 


make link 


3^r02 


o 4 oo 




Idn 


0 






54 c 3 


4037 




std 


utwo 






34 oU 


4 oi 4 




std 


scale 


|b 




3405 


o 4 o 2 




Idn 


2 ' 


1 




34 o 6 


4036 




std 


two 








0101 




pta 








3410 


704 o 




oPi 


arith 






3411 


0031 






31 






5412 


0002 






vmax 


c 




3‘+15 


0000 






sens 






34 i 4 


0060 






buf 




compute vmax times sens 


54 i 5 


2061 


loop 


Idd 


ubuf 






54 i 6 


1212 




Ipf 


mask 1 


1 rN 




3^17 


6112 




nzf 


next 1 






3420 


0101 




pta 








3421 


?040 




OPi 


arith 






3422 


0031 






31 






3423 


0060 






buf 


P 




3424 


0036 






two 






3425 


0060 






buf 




scale up buf 


3426 


54 i 4 




aod 


scale 






3427 


6612 




Pjb 


loop 




unconditional jvimp 


5450 


7400 


mask 




7400 






3451 


0101 


next 


pta 








3432 


7 o 4 o 




Jpi 


axith 






3-53 


004 l 






4 l 






3454 


0060 






buf 






3455 


0012 






dist 






5436 


0060 






buf 




compute vmax sens/dist 


5457 


004 l 






4 l 






3440 


006c 






buf 






3441 


0 oo 4 






diff 


c 




3442 


0060 






buf 


r 




5443 


0002 






2 






3444 


0055 






index 5 






3445 


0027 






dtl 






5446 


0026 






dt 






5447 


0031 






31 






345c 


OOoO 






buf 






3451 


0026 






d-x, 






5452 


0060 






buf 




compute vmax sens dt/dist diff 


5453 


2061 


loopl 


Idd 


ubuf 1 




scale up buf 


3454 


6202 




Pjf 


2 1 






3455 


246 l 




led 


ubuf 






3456 


1526 




Ipb 


iTiask 


1 




3457 


6111 




nzf 


contin 






3460 


0101 




pta 








5461 


7 o 4 o 




jpi 


arith 


H 




3462 


0031 






31 






3463 


0060 






buf 







117 



rt 



3464 


0036 






two 


3465 


0060 






buf 


3466 


54i4 




aod 


scale 


3^67 


66 i 4 




Pjt 


loopl 


3470 


0101 


contin 


pta 




3471 


704o 




Jpi 


arith 


3472 


004 i 






4 l 


3473 


0060 






buf 


3474 


0012 






dist 


3475 


0064 






rt2 


3476 


0031 






31 


3477 


0064 






rt2 


3500 


0055 






index5 


3501 


0064 






rt2 


3502 


0002 






2 


3503 


0060 






buf 


3504 


0064 






rt2 


3505 


0064 






rt2 


3506 


0501 




Icn 


1 


3507 


5014 




rad 


scale 


3510 


2014 


loop2 


Idd 


scale 


3511 


6013 




zjf 


exit 


5512 


0101 




pta 




3513 


704o 




OPi 


arith 


3514 


004 l 






4 l 


3515 


oo 64 






rt2 


3516 


0036 






two 


3517 


0 G 64 






rt2 


3520 


0501 




Icn 


1 


5521 


5014 




rad 


scale 


3522 


0400 




Idn 


0 


3523 


6413 




zjb 


loop2 


3524 


2064 


exit 


Idd 


rt2 


5525 


0201 




Ipn 


1 


3526 


4060 




std 


buf 


3527 


o 4 oo 




Idn 


0 


3530 


4 o 6 i 




std 


ubuf 


3531 


2064 




Idd 


rt2 


3532 


6203 




PJf 


corect 


3533 


2460 




led 


buf 


3534 


4 o 6 o 




std 


buf 


3535 


0101 


corect 


pta 




3536 


7o4o 




OPi 


arith 


3537 


004 l 






4 l 


3540 


0064 






rt2 


3541 


0036 






two 


3542 


0064 






rt2 


3543 


0001 






1 


3544 


0064 






rt2 


3545 


0060 






buf 


3546 


0064 






rt2 


3547 


7006 




Jpi 


link 




0006 


link 


equ 


6 




0014 


scale 


equ 


l 4 



compute vmax sens dt/diff dist2 

J 

confute vmax sens dt t/diff dist2 

rt2 now computed 

K 

L 

M 

scale rt2 tack down 



N 

get round off error 

P 



R 

add round off correction 
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0026 


dt 


equ 


26 


0027 


dtl 


equ 


27 


0036 


two 


equ 


36 


0037 


utwo 


equ 


37 


0002 


vmax 


equ 


2 


0040 


arith 


equ 


4 o 


0055 


index5 


equ 


55 


oo6o 


buf 


equ 


60 


oo6i 


ubuf 


equ 


61 


0000 


sens 


equ 


0 


0012 


dist 


equ 


12 


oo 64 


rt2 


equ 


64 


0065 


urt2 


equ 


65 


0004 


diff 


equ 


4 


0000 




end 
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APPENDIX III 



MAINTENANCE OF ACCURACY OF ARITHMETIC COMPUTATIONS 
Section 5 of Chapter III refers to the use of a CDC 160 computer 
for the graphically orientated design process. This particular computer 
was limited In available memory capacity as well as computer word size. 
This limitation Imposed the use of twenty- two bit fixed-point arithmetic 
for all arithmetic computations. In order to maintain accuracy, special 
procedures were necessary to avoid large round-off errors. By way of 
Illustration of the method used, reference Is made to figure 36 which Is 
the flow diagram for the flxdpt subroutine. This subroutine does a 
special sequence of arithmetic operations which will be studied. Start- 
ing with the multiplication of step C, steps D and E are carried out to 
ensure the number Is scaled up to as large a number as the twenty- two 
bit format will permit. The variable "scale" contains the power of two 
used In scaling up this product. Further operations are performed In F, 
and In G the number Is scaled up again. Still further computations are 
performed using the full accuracy of the machine while choosing the order 
of operations to ensure overflow does not occur. In L and M, the result 
Is scaled down until the number has a scale factor of two. The last bit 
Indicates whether the number Is to be rounded off by truncation only or 
by truncation with unit correction. For negative numbers the correction 
factor Is negative as sensed In step Q. Descaling to unity scale factor 
and addition of round-off correction In step R completes the computations. 
The above procedure ensures accuracy without the use of floating-point 
arithmetic. 



120 



INITIAL DISTRIBUTION LIST 



No. 



1. Defense Documentation Center 

Cameron Station 
Alexandria, Virginia 22314 

2 . Library 

Naval Postgraduate School 
Monterey, California 93940 

3. Prof, Mitchell L. Cotton (Thesis Advisor) 

Department of Electrical Engineering 

Naval Postgraduate School, Monterey, California 

4. LT John M. C. TYNAN 

2121 Trapani Circle 
Monterey, California 93940 



Copies 

20 

2 

5 

1 



121 



UNCLASSIFIED 
Security CUsaification 



DOCUMENT CONTROL DATA • RAD 



(S^ourity eUtti/iest/on of tItU, body ol sbmtrsct mnd indmxlng mnotmtion mu«r b« ftttmd whmn thm ormmlt fpoti l« eim§ 9 iii 9 d) 



1 . 



OJ^iaiNATIMO ACTIVITY (Corpormtm mithor) 



2 «. 



REPORT SECURITY C L AtSI PIC A TION 



Naval Postgraduate School 
Monterey, California 93940 



UNCLASSIFIED 

2 b. EROUR 



J. REPORT TITLE 



A COMPUTER GRAPHICS APPROACH TO NON-LINEAR CIRCUIT DESIGN 



4. DESCRIPTIVE NOTES (Typ 9 ot fport mtd inehtmirm 

Master of Science Thesis 



8. AUTHOR('S; ri'Mf nMi«. Hrat nmmtm, Mtimi) 

TYNAN, John M* C,, Lieutenant, Royal Canadian Navy 



S. REPORT DATE 

2 June 1967 

$M. CONTRACT OR ERANT NO. 



7m. 



»m. 



TOTAL NO. OF RAEES 
121 



7b. NO. OF REFS 

3 



ORIEtNATOR*S REPORT NUMBER('S; 



b. PROJECT NO. 



d. 



9b. OTHER REPORT NO{SJ (A ny othmrnumbmrm thmt mmy bm mmmignmd 
thim rmport) 



10. A VA IL AEILITY/LIMITATION NOTICES 




11. SUPPLEMENTARY NOTES 



12. SPONSORING MILITARY ACTIVITY 

Naval Postgraduate School 
Monterey, California 93940 



IS. ABSTRACT 

This investigation is concerned with computer and programming require- 
ments for on-line network design* A class of problem involving non-linear 
diode resistance networks was chosen. Such networks provide a useful form of 
general purpose function generator, here applied to the specific task of symbol 
generation. A procedure was implemented whereby the user ’’draws" the required 
symbol to be generated on a cathode ray tube display, and output is obtained 
in the form of a labeled circuit diagram of the synthesized network. The 
validity of the computer- graphic design program was demonstrated by construc- 
tion and testing of a particular symbol generator. 



DD 



FORM 

1 JAN «4 



1473 



UNCLASS IFTF.n 

Security Classification 



123 




UNCLASSIFIED 



Security Classification 



KEY WORDS 



LINK A 



RO L E WT 



L tN K B 



ROLE 



LINK C 



Network design 
Computer graphics 
Function generation 
Symbol generation 



DD ,?o?..1473 (BACK) 



S/N 01 01 -807-6821 



UNCLASSIFIED 



Security Classification 



A-3 1 409 



124 



i 



I 




i 

1 



